Auto insert "CreateDate" to Footer
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
--
Gary''s Student - gsnu200738
"David" wrote:
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
|