Auto insert "CreateDate" to Footer

D

David

How can I setup up insertion of the Creation Date, not now etc, into a
sheet.xlt footer, this is mainly to identify old sheets that have Nows etc
in them, simply to know when the sheet was created.
Many thanks,
Dave
 
G

Gary''s Student

Insert the following macro in ThisWork code area:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
v = ActiveWorkbook.BuiltinDocumentProperties(11).Value
ActiveSheet.PageSetup.CenterFooter = v
End Sub
 
Top