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

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

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

"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

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

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

---------------------------------
Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = _
"Last saved: " &
format(ThisWorkbook.BuiltinDocumentProperties("las t save
time").Value
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

Last msg was wrongly posted!

Sorry,
--
AP

"Ardus Petus" a écrit dans le message de news:
...
---------------------------------
Private Sub Workbook_Open()
ActiveSheet.PageSetup.CenterFooter = _
"Last saved: " &
format(ThisWorkbook.BuiltinDocumentProperties("las t save
time").Value
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