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

-----Original Message-----
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?
.