Run-Time error '1004'

Hi,

I get Run-Time error '1004' and I think it's because my sheet doesn't have focus when trying to select the Pivot Tables, I need some assistance and correcting my code.

I have 3 sheets, 1, 2 & 3 and there are Pivot Tables on 2 & 3 only.

Please amend my code so it can run more efficiently. Also, if you have any tips I'd be very grateful too.

Much appreciated,
K

Sub Refresh_PTables_Print()

'Rreshesh all Pivot Tables in this Workbook
        Dim pt As PivotTable
        Dim ws As Worksheet
        
            For Each ws In ActiveWorkbook.Worksheets
                For Each pt In ws.PivotTables
                    pt.RefreshTable
                    pt.TableRange2.Select
                    Selection.EntireRow.Hidden = False
                    
                Next pt
            Next ws

'Then Print out Expense Claim
        With Worksheets("Expense Claim")
            .PageSetup.PrintArea = "Print_Area_Exp_Claim"
            .PageSetup.Orientation = xlLandscape
            .PageSetup.FitToPagesTall = 1
            .PageSetup.FitToPagesWide = 1
            .PageSetup.PaperSize = xlPaperA4
            .PageSetup.TopMargin = 28
            .PageSetup.CenterHorizontally = True
            .PageSetup.BlackAndWhite = True
            .PrintOut
        End With
        
'Then Print out Payment Requisition
        With Worksheets("Payment Requisition")
            .PageSetup.PrintArea = "Print_Area_Pay_Req"
            .PageSetup.Orientation = xlPortrait
            .PageSetup.FitToPagesTall = 1
            .PageSetup.FitToPagesWide = 1
            .PageSetup.PaperSize = xlPaperA4
            .PageSetup.TopMargin = 28
            .PageSetup.CenterHorizontally = True
            .PrintOut
        End With
        
'Then Print out GL Posting
        With Worksheets("GL Posting")
            .PageSetup.PrintArea = "Print_Area_GL_Post"
            .PageSetup.Orientation = xlPortrait
            .PageSetup.FitToPagesTall = 1
            .PageSetup.FitToPagesWide = 1
            .PageSetup.PaperSize = xlPaperA4
            .PageSetup.TopMargin = 28
            .PageSetup.CenterHorizontally = True
            .PrintOut
        End With

End Sub