Is there a way to display when a document was last saved in a foot

[Jeff]

I am trying to add a footer that shows when the last time the document was
saved. Is there a way to do this?

 

[Jason Morin]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveWorkbook
.ActiveSheet.PageSetup.CenterFooter = _
.BuiltinDocumentProperties("Last Save Time")
End With
End Sub

---
Place in ThisWorkbook module.

HTH
Jason
Atlanta, GA