Custom headers and footers

  • Thread starter Thread starter Isy Taman
  • Start date Start date
I

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
 
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 **
 
Back
Top