Last Date Saved

T

Techy DuWright

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

Gord Dibben

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("Last Save Time"), _
"yyyy-mmm-dd hh:mm:ss")
Next wkSht
End Sub


Gord Dibben MS Excel MVP
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Excel Unique last page footer 1
Excel XP/2003 - Fields in Headers/Footers... 3
Last Saved Date 2
last date saved in excel 7
Last Saved By 3
How to put save date in the header (or footer) 10
Insert last saved date into header 9
How do I add the last modified date to the footer in Excel? 1

Top