Updating Excel Footers

  • Thread starter Thread starter Steven Cooper
  • Start date Start date
S

Steven Cooper

I'm working in a controlled environment and would like to find an easy
way to insert the date last saved into the footer.
 
Hi Steven

You can add this to the workbook (in the Thisworkbook module)
When you print the footer will be updated before it print.(not working correct in 97)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
wkSht.PageSetup.RightFooter = "&8Last Saved : " & _
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
Next wkSht
End Sub

Right click on the Excel icon next to File in the menubar
And choose View code

You are now in the Thisworkbook module
Paste the Event in this place
Alt-Q to go back to Excel
Save your file
 
Back
Top