Auto insert "CreateDate" to Footer

  • Thread starter Thread starter David
  • Start date Start date
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
 
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
 
Back
Top