Last Date Saved
Sub Last_Saved_Footer()
'Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ThisWorkbook.Worksheets
wkSht.PageSetup.RightFooter = "&8Last Saved : " & _
Format(ThisWorkbook.BuiltinDocumentProperties("Las t Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
Next wkSht
End Sub
Gord Dibben MS Excel MVP
On Thu, 2 Apr 2009 06:54:01 -0700, Techy DuWright
.(Donotspam) wrote:
Excel 2003 and XP Pro SP3. Is there a way to add a place in the footer so
that the page displays the last date the file was saved?
|