Been using this for onths..works well

ActiveCell.FormulaR1C1 = Now()

Selection.Font.Bold = True
Selection.NumberFormat = "[$-409]d-mmm-yy;@"

Ian M
"Jim Cone" wrote in message
...
Diane,

Try this...

Range("F5").Value = Format(Date, "mmm,dd,yyyy")

Regards,
Jim Cone
San Francisco, USA



"Diane Alsing" wrote in message
...
I have a macro written and I would like to have it put a datestamp in a
cell
after running. Basically I would like it to fill a cell with today's
date as
the last line of code so I can keep track of when it was last run
successfully. I tried the following, but it does not seem to work.

Range("F5") = Now

Any help would be greatly appreciated.
Regards, diane