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