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