All, I am perplexed with this one ...

I am trying to put a footer in my workbook that will show
the last time the file was saved (as opposed to the [date]
& [time] functions that show the time printed). I have
created the following code and put it in my Personal
workbook, BUT, it forces me to remember to run this each
time I save the file. Is there something like a
[datestamp] variable I can put in my footer that will
dynamically update? Any other thoughts?

Thanks!!


Sub TimeStampFooter()
On Error GoTo handler
With ActiveWorkbook
Filename = .Path & "\" & .Name
timestamp = FileDateTime(Filename)
numsheets = .Worksheets.Count
For x = 1 To numsheets
Sheets(x).PageSetup.RightFooter = "&8Last
Updated: " & timestamp
Sheets(x).PageSetup.LeftFooter = "&8" & Filename
Next x
End With
Exit Sub
: handler
MsgBox ("Error - please ensure file is saved before
contiuing")
Exit Sub
End Sub