Custom Page Headers

J

jamess@therock

I want to show the contents of a cell in the page header when I print the
document. Does anyone have a solution for this?
 
J

Jason Morin

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = ActiveSheet _
..Range("A1").Value
End Sub

---
Place this macro in the "ThisWorkbook" module.

HTH
Jason
Atlanta, GA
 
Top