Solved: Need to append todays date as text to the end of the selected Cell Text

[frank_m]

I need to append today's date to the end of whatever data may or may not already be in the selected cell. The cell is formatted as text so the result I'm after is a text string. I Also wish to put a comma before each date that I add to the string.

ie: "ExistingStringData,11/01/10,11/05/10,12/01/10" (without the quotes)

Thanks in advance

[Bob Phillips]

With ActiveCell

.Value = .Value & ", " & Format(Date, "mm/dd/yyyy")
End With

[frank_m]

Thank you very much xld. -- I really appreciate it.:beerchug: