is there any way to have the author of a workbook printed in the footer?

A UDF and a macro will do the trick.

Sub Props_In_Footer()
With ActiveSheet
.PageSetup.CenterFooter = DocProps("last author")
End With
End Sub

'=DOCPROPS("last author")
'or
'=DOCPROPS("last save time")

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


Gord Dibben MS Excel MVP


On Wed, 15 Mar 2006 18:21:06 -0000, "jiwolf"
wrote:

is there any way to have the author of a workbook printed in the footer?