Auto insert "CreateDate" to Footer
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 |
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 |
All times are GMT +1. The time now is 05:22 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com