copy date from one column to another

[-D-]

I want to copy data from one column to another column, but add the copied
value to existing data. The field I'm copying from contains dates. The
field I'm copying to contains text.

For example:

Before the copy:
Column A Column B
3/21/2008 Lorem Ipsum dolor...etc.

After copy:

Column B
Lorem Ipsum dolor...etc. Date in: 3/21/2008


How can I accomplish this?

Thanks for any help.
Regards.

 

[Don Guillett]

Sub addtocolb()
For Each c In Range("a2:a4")
c.Offset(, 1) = c.Offset(, 1) & _
" Date in: " & Format(c, "mm/dd/yyyy")
Next c
End Sub