PDA

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



frank_m
11-27-2010, 11:05 AM
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

xld
11-27-2010, 11:30 AM
With ActiveCell

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

frank_m
11-27-2010, 11:56 AM
Thank you very much xld. -- I really appreciate it.:beerchug: