How do I insert the date modified in a spreadsheet footer?

[Guest]

I'm trying to create an Excel report footer that contains the date that the
file was last modified. Does anyone have any suggestions?

 

[Guest]

Using a small amount of code that includes references to the File System
Object, you can have this done automatically for your spreadsheets.

 

[Bob Phillips]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = _
ActiveWorkbook.BuiltinDocumentProperties("last save time")
End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code


--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

 

[Guest]

Yes, thanks.
However, I was hoping that I could gain access to the solution without
paying for it.

 

[Guest]

Thanks, Bob. This should work just fine.

One additional question, if I may. Assuming this coding will work for other
BuiltIn Document Properties, (i.e., date file was created), do you know how
to obtain a list of these properties?

Thanks again for your help.

 

[Bob Phillips]

Have a look at BuiltinDocumentProperties in VBA help

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)

 

[Guest]

Great. Found it. Thanks for your help.

Have a look at BuiltinDocumentProperties in VBA help

--
HTH

Bob Phillips

(replace somewhere in email address with googlemail if mailing direct)