Your body description is at odds with your subject line.
Which is correct?
Before Printing or when workbook is opened?
You choose.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sheet1").Range("A1").Value = Format(Date, "mm-dd-yyyy")
End Sub
Private Sub Workbook_Open()
Sheets("Sheet1").Range("A1").Value = Format(Date, "mm-dd-yyyy")
End Sub
Gord Dibben MS Excel MVP
On Tue, 25 May 2010 10:39:01 -0700, wayne h <wayne