print author
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?
|