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

Signature
Don Guillett
Microsoft MVP Excel
SalesAid Software
dguillett1@austin.rr.com
>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
[quoted text clipped - 15 lines]
> Thanks for any help.
> Regards.