G
Guest
I'm trying to produce a footer before the printing.
I've tried putting this into a module and also into the sheet1 code area.
Any ideas wy it will not work?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
Cancel = True
Worksheets("Sheet1").PageSetup.RightFooter = "Produced by MyName"
Application.EnableEvents = True
End Sub
I've tried putting this into a module and also into the sheet1 code area.
Any ideas wy it will not work?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.EnableEvents = False
Cancel = True
Worksheets("Sheet1").PageSetup.RightFooter = "Produced by MyName"
Application.EnableEvents = True
End Sub