Date function
 

Hello everyone,

I need help with the following problem: how would I invoke the function I
listed below in order for the LMD (Last Modified Date) to display in the
footer?

Function LMD()
LMD = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Thank you

You would need a macro

Sub LMD()
On Error Resume Next
ActiveSheet.PageSetup.RightFooter = _
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub

or automatically

http://www.rondebruin.nl/print.htm#Saved


--

Regards,

Peo Sjoblom


"geza" wrote in message
...
Hello everyone,

I need help with the following problem: how would I invoke the function I
listed below in order for the LMD (Last Modified Date) to display in the
footer?

Function LMD()
LMD = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Thank you

Thank you very much,
Geza.

"Peo Sjoblom" wrote:

You would need a macro

Sub LMD()
On Error Resume Next
ActiveSheet.PageSetup.RightFooter = _
ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Sub

or automatically

http://www.rondebruin.nl/print.htm#Saved


--

Regards,

Peo Sjoblom


"geza" wrote in message
...
Hello everyone,

I need help with the following problem: how would I invoke the function I
listed below in order for the LMD (Last Modified Date) to display in the
footer?

Function LMD()
LMD = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")
End Function

Thank you