Insert a "Last update" cell into Excel

[scarlett3]

Hi,

How do I create an excel cell that displays the last time that the file was saved? I would like the results of the cell to read "Last update: ...." rather than just display the date/time.

Thanks

 

[Glaswegian]

Welcome to the Board!

Have a look at this thread.

http://www.mrexcel.com/board2/viewtopic.php?t=106565&highlight=date+last+saved

Regards

 

[scarlett3]

Hi Glaswegian,

Thanks for the reply. That solution would create a cell value that reads: "21/01/2005 12:08" ...

But I would like to create a cell value that reads: "Last update: 21/01/2005 12:08" or whatever was the time of the last save.

Thanks.

 

[Glaswegian]

Just add 'Last Saved' to the code, like this

Sub LastSaveDetails()
ActiveSheet.Range("A1") = "Last Saved " & FileDateTime(ThisWorkbook.FullName)
End Sub

Does this help?

 

[scarlett3]

Thanks again, Glaswegian.

I'm getting there, but now I can do it, I want to change it

I've put the

ActiveSheet.Range("B2") = _
"Updated: " & FileDateTime(ActiveWorkbook.FullName)

bit in a macro so I can run it when I like rather than on save or close. But I would like this to be written to all selected worksheets (Sheet1, Sheet2, etc) rather than just the active one.

Can this be done?

Thanks.

 

[Glaswegian]

This code will put your saved details in each sheet except Sheet3 - which I've used to illustrate how to skip sheets.

Sub LastSaveDetails()
Dim sht As Worksheet

Application.ScreenUpdating = False
For Each sht In ThisWorkbook.Worksheets
    If sht.Name <> "Sheet3" Then
        sht.Activate
        Range("B2").Value = "Updated: " & FileDateTime(ThisWorkbook.FullName)
    End If
Next sht
Application.ScreenUpdating = True
End Sub

HTH

Regards