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

J

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?
 
J

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
 
Top