Printing Last Date Modified...

Hi, I'm trying to print in the footer of an spreadsheet the last date it was
modified, is there any way to do this???
I was reading a post make by Gord Dibben but i couldn't get it to work.It
works fine for the creation date but not for last date modified. (read
below)

I will really appreciate any help.
Thanks in advanced,

-Michel



*******************************************************************************
Raymond

First you can copy this all-purpose UDF to a general module in your
workbook.

Function DocProps(prop As String)
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function


If entering in a cell usage is..................
'=DOCPROPS("author")
'or
'=DOCPROPS("last save time")
'or
'DOCPROPS("creation date")

To enter in a footer use this macro, also copied to the general module.


Sub PathInFooter()
ActiveSheet.PageSetup.RightFooter = DocProps("creation date")
End Sub


Gord Dibben MS Excel MVP
*******************************************************************************

Which part doesn't work?

The Docprops function or the footer macro?

NOTE: If you haven't saved the workbook at least once before you will have no
last save time available.

Did you try in a worksheet cell =DocProps("last save time")

What got returned?


Gord Dibben MS Excel MVP

On Tue, 10 Jul 2007 11:54:31 -0400, "Michel Moreno" <NoSp DeleteThis @m.com> wrote:

>Hi, I'm trying to print in the footer of an spreadsheet the last date it was
>modified, is there any way to do this???
>I was reading a post make by Gord Dibben but i couldn't get it to work.It
>works fine for the creation date but not for last date modified. (read
>below)
>
>I will really appreciate any help.
>Thanks in advanced,
>
>-Michel
>
>
>
>*******************************************************************************
>Raymond
>
>First you can copy this all-purpose UDF to a general module in your
>workbook.
>
>Function DocProps(prop As String)
> Application.Volatile
> On Error GoTo err_value
> DocProps = ActiveWorkbook.BuiltinDocumentProperties _
> (prop)
> Exit Function
>err_value:
> DocProps = CVErr(xlErrValue)
>End Function
>
>
>If entering in a cell usage is..................
>'=DOCPROPS("author")
>'or
>'=DOCPROPS("last save time")
>'or
>'DOCPROPS("creation date")
>
>To enter in a footer use this macro, also copied to the general module.
>
>
>Sub PathInFooter()
> ActiveSheet.PageSetup.RightFooter = DocProps("creation date")
>End Sub
>
>
>Gord Dibben MS Excel MVP
>*******************************************************************************
>