Custom headers and footers

[Isy Taman]

Hello,

Can I customise a footer setting on print settings to be
the date from a cell reference on the spreadsheet rather
than today's date.

Thank you

 

[Paul B]

Try something like this in the this workbook code, will put the date in A1
in the center footer before the sheet prints

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim MyDate As String
MyDate = Format(Range("A1"), "m/dd/yyyy")
ActiveSheet.PageSetup.CenterFooter = MyDate
End Sub


--
Paul B
Always backup your data before trying something new
Using Excel 2000 & 97
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **