Duane,

To put the current date in M3:

Range("m3").Value = Date


--
Hope that helps.

Vergel Adriano


"DDub207 via OfficeKB.com" wrote:

This should have been easy for me to figure out but I couldn't do it. I'm
just trying to have a cell auto-populate with the current date. I can't use
the =today() function on the sheet because it changes the date on old copies
when they are opened. I would like this to be a workbook_open macro that
works with the one I have below to advance invoice dates. The cell I would
like the date to populate in is M13. Thank, Duane.

Private Sub Workbook_Open()
Range("m3").Value = Range("m3").Value + 1
End Sub

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200708/1