Modified Date in Spreadsheet

M

Mike

I would like to display the last date that a file was
modified in the footer on a spreadsheet.
Thanks
 
F

Frank Kabel

Hi
put the following code in your workbook module (not in a standard
module):

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter = Me.BuiltinDocumentProperties("Last save time")
End With
Next wkSht
End Sub
 
Top