Sub Macro1()
Sheet1.Range("D2") = Date
End Sub
Regards,
Alan.
"Larry Fish via OfficeKB.com" <u27092@uwe wrote in message
news:66de30b9a3e6f@uwe...
I have tried writing a macro that would let me capture the date from my
computer and place it in cell D2. The captured day will be moved intact
at
the end of the day

Is there a command that will let me do that?

Thanks for the help in advance.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...l-new/200609/1