I presume if m13 already has something in it, it's an "old copy", so you
wouldn't want to put the date in if there's already something in m13. This
just adds the date to m13 if it's empty.
HTH, James

Private Sub Workbook_Open()
Range("m3").Value = Range("m3").Value + 1
If Range("m13") = "" Then Range("m13") = Now
End Sub

"DDub207 via OfficeKB.com" <u36243@uwe wrote in message
news:760baa1848918@uwe...
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