Tracking "Date Last Saved"

[GW]

I am trying to show on the page (footer would be ok) the
date that a spreadsheet was last modified. The footer
only allows input of the current date and time. I want
something that shows when someone made changes to a
spreadsheet, not just viewed it. Basically need the info
in the "Properties" section to show up on the page. Any
ideas?
Thanks!!

 

[Frank Kabel]

Hi
if you want to insert the last save date in your header/footer insert
the following code in your workbook module

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter = Format _
(ActiveWorkbook.BuiltinDocumentProperties _
("Last save time"),"DD.MM.YYYY")
End With
Next wkSht
End Sub