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
On Wed, 13 Jun 2007 12:49:48 -0800, "Raymond" <raymondinak.DeleteThis@gmail.com> wrote:
>Hello...
>
>I hope someone can tell me how to print the file create date in the footer
>of my excel file...
>
>Thanks in advance!
>
>Raymond
>
Microsoft Office