How to add custom information to the footer of an Excel spreadsheet
The Page Setup window of Excel does not offer many choices for adding dynamic information into the header and footer.
To add the time the file was last saved use the following code:
Sub LastSavedTimeInFooter()
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.BuiltinDocumentProperties(”Last Save Time”)
End Sub
Note, the above code will have to be manually run. To have this happen automatically you could do the following:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.BuiltinDocumentProperties(”Last Save Time”)
End Sub
With this code it would automatically run every time you had to print and would always be updated on your hard-copies.
