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

[cnadwodny]

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

[galimi]

Using a small amount of code that includes references to the File System
Object, you can have this done automatically for your spreadsheets.
--
http://HelpExcel.com
1-888-INGENIO
1-888-464-3646
x0197758


"cnadwodny" wrote:

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

[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)

"cnadwodny" <[email protected]> wrote in message
news:[email protected]...
> I'm trying to create an Excel report footer that contains the date that
the
> file was last modified. Does anyone have any suggestions?

[cnadwodny]

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



"galimi" wrote:

> Using a small amount of code that includes references to the File System
> Object, you can have this done automatically for your spreadsheets.
> --
> http://HelpExcel.com
> 1-888-INGENIO
> 1-888-464-3646
> x0197758
>
>
> "cnadwodny" wrote:
>
> > I'm trying to create an Excel report footer that contains the date that the
> > file was last modified. Does anyone have any suggestions?

[cnadwodny]

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" wrote:

> 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)
>
> "cnadwodny" <[email protected]> wrote in message
> news:[email protected]...
> > I'm trying to create an Excel report footer that contains the date that
> the
> > file was last modified. Does anyone have any suggestions?
>
>
>

[Bob Phillips]

Have a look at BuiltinDocumentProperties in VBA help

--
HTH

Bob Phillips

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

"cnadwodny" <[email protected]> wrote in message
news:[email protected]...
> 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?

[cnadwodny]

Great. Found it. Thanks for your help.

"Bob Phillips" wrote:

> Have a look at BuiltinDocumentProperties in VBA help
>
> --
> HTH
>
> Bob Phillips
>
> (replace somewhere in email address with googlemail if mailing direct)
>
> "cnadwodny" <[email protected]> wrote in message
> news:[email protected]...
> > 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?
>
>
>