You could clear the footers before printing but would have to reset them
after.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet
.PageSetup.CenterFooter = ""
End With
End Sub

Sub CellInFooter22()
With ActiveSheet.PageSetup
.LeftFooter = "&""Algerian,Regular""&16" & Range("A1")
'adjust the format and content to suit.
End With
End Sub


Gord Dibben MS Excel MVP

On Tue, 23 Sep 2008 06:54:11 -0700, BPC123
wrote:

I want my footers to show when using as workpapers but when wanting to print
the final report, I want to be able to suppress them?