Plot stamp or footer with "Create Date"

Hello,

I need my excel print jobs to have a footer that reports the file's "Create
Date" . Can anyone tell me how've they done this successfully?

Thanks!

Raymond

Raymond

First you can copy this all-purpose UDF to your workbook into a general module.

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

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

Then run this macro. Strip out what you don't want in the footer before
running.

Sub PathInFooter()
ActiveSheet.PageSetup.RightFooter = ActiveWorkbook.FullName & " " & _
ActiveSheet.Name & " " & Application.UserName & " " & Date _
& DocProps("creation date")
End Sub


Gord Dibben MS Excel MVP

On Fri, 8 Jun 2007 16:39:01 -0800, "Raymond" <raymondinak.RemoveThis@gmail.com> wrote:

>Hello,
>
>I need my excel print jobs to have a footer that reports the file's "Create
>Date" . Can anyone tell me how've they done this successfully?
>
>Thanks!
>
>Raymond
>