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


"Barb Reinhardt" a écrit dans le
message de news: ...
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("las t save
time").Value, "dd-mmm-yyyy")
End Sub

I assume I could use the same as Worksheet Save.

"Ardus Petus" wrote:

Paste the following into Worksheets''s code:

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

HTH
--
AP

"Barb Reinhardt" a écrit dans
le
message de news: ...
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