Display last date saved

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Requiring multiple cells to be populated before allowing Save 3
I am facing problem while using Public Sub Workbook_BeforeSave(ByValSaveAsUI As Boolean, Cancel As B 3
I'm caught in a loop - Require specific cell entry before saving file 0
using two cell references to make up the save as file name 3
save as cell A1 to to a specific drive 3
Macro to automatically save document with cell reference as filena 2
Last Saving Date 5
Sub projects added as read only in Master file which are saved on sharepoint 1

Top