Display last date saved

  • Thread starter Thread starter Kathy
  • Start date Start date
K

Kathy

Hello,

I have used the following to display the last date the
workbook was saved. This is not working, any ideas.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As
Boolean, Cancel As
Boolean)
Worksheets("Sheet1").Range("A1").Value = Now()
End Sub

I have closed the workbook/Excel then reopened. It did
not work.
Then ,I changed ("Sheet1") to reference the worksheet
name.
Next changed ("A1") to reference the range named update.
Then I selected A2
=update
the value shows as 1/0/1900.

Help !! - thanks
 
Back
Top