Date function

[Guest]

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

 

[Peo Sjoblom]

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

 

[Guest]

Thank you very much,
Geza.

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