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
*******************************************************************************