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


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