Including the modified date in the footer

[Guest]

I'm thinking that in order to include the modified date in the footer, it
might have to be done programmatically. If so, how would I do it.

Thanks,
Barb Reinhardt

 

[Ardus Petus]

Paste the following into Worksheets''s code:

'---------------------------------
Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = _
ThisWorkbook.BuiltinDocumentProperties("last save time").Value
End Sub
'---------------------------------

HTH

 

[Guest]

How do I format it to show the date only and not the date and time?

 

[Guest]

I'd like for it to show Last Modified and the date. I have this so far:

Private Sub Workbook_Open()
ActiveSheet.PageSetup.RightFooter = _
Format(ThisWorkbook.BuiltinDocumentProperties("last save
time").Value, "dd-mmm-yyyy")
End Sub

I assume I could use the same as Worksheet Save.

 

[Ardus Petus]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = _
"Last date saved: " & _
Format( _
ThisWorkbook.BuiltinDocumentProperties("last save time").Value,
_
"dd-mm-yyyy")
End Sub

 

[Ardus Petus]

---------------------------------
Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = _
"Last saved: " &
format(ThisWorkbook.BuiltinDocumentProperties("last save
time").Value
End Sub
'---------------------------------

 

[Ardus Petus]

Last msg was wrongly posted!

Sorry,
--
AP

---------------------------------
Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = _
"Last saved: " &
format(ThisWorkbook.BuiltinDocumentProperties("last save
time").Value
End Sub
'---------------------------------