Private Sub Workbook_BeforePrint not working

Hello,

Trying to use following code in excel 2010:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim sht As Object
    
    For Each sht In ThisWorkbook.Sheets
            With sht.PageSetup
                .PrintTitleRows = ""
                .PrintTitleColumns = ""
                .LeftHeader = "&Z"
                .CenterHeader = "&F"
                .LeftFooter = "by xxxx"
            End With
    Next sht
                
End Sub

I cannot get it functioning. Please guide me.

You should dim "Sht" as worksheet and not object.

Also this code will work only when you select MS-Office -> Print.

Thanks for your guidance. Changed code to:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim sht As Worksheet

    For Each sht In ThisWorkbook.Sheets
            With sht.PageSetup
                .PrintTitleRows = ""
                .PrintTitleColumns = ""
                .LeftHeader = "&Z"
                .CenterHeader = "&F"
                .LeftFooter = "by xxxx"
            End With
    Next sht
                
End Sub

Still does not work.

When you say it does not work, what do you mean?

How are you running the code? Trying to run it from the menu bar? Or on a button click?