G Gord Dibben May 20, 2005 #2 Dave Macro.......... Sub CellInFooter() With ActiveSheet .PageSetup.CenterFooter = .Range("A1").text End With End Sub Alternative........ Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet .PageSetup.CenterFooter = .Range("A1").Text End With End Sub Gord Dibben Excel MVP
Dave Macro.......... Sub CellInFooter() With ActiveSheet .PageSetup.CenterFooter = .Range("A1").text End With End Sub Alternative........ Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet .PageSetup.CenterFooter = .Range("A1").Text End With End Sub Gord Dibben Excel MVP