Display date/time workbook last saved in cell

[zoso]

Hi there!

I've been looking at responses to similar questions to this but either they didn't fit my problem or I haven't understood them!

I use the Save button regularly when I'm running a workbook called 'Running Log', which has 9 worksheets in it.

However, sometimes I might make an error. I then need to know when I last saved the document, in case it's worth keeping the small mistake for the sake of all the other data I might lose if I close without saving.

What I am looking for is code so that when I click the Save icon, cell G2 in worksheet 'Training Log' will show the date and time I last saved the workbook.

Where my problem differs from the others I've read, is that I need cell 'Training Log!'D2 to update, no matter which worksheet I'm using.

Also, is it possible for the cell to say "Date/Time workbook last saved was..." before the result?

Hope you can help - and thanks, as ever!

 

[Chas17]

In the vb code(Alt-F11), Under vb project, in the "workbook" section, place the following:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Range("update") = "Updated on " & Date & " " & Time
End Sub

Name a cell (G2) in your worksheet with the name "update"

when you save the workbook it will place the text in the cell named update.

Chas

 

[zoso]

FANTASTIC, Chas - you did it!

Thank you so much!!!

Have a great day!

 

[Chas17]

You're welcome

Cheers,
chas