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