Loop through all Pivot tables in a worksheet and filter visability VBA

[Paul_Hossler]

I don't think I've ever heard of 50 pivot tables on a single sheet, but try this

Option Explicit

Sub filterPivot()
    Dim pt As PivotTable
    
    On Error Resume Next
    For Each pt In ActiveSheet.PivotTables
        With pt.PivotFields("Memo")
            .PivotItems("Name1").Visible = False
            .PivotItems("Name2").Visible = False
            .PivotItems("Name3").Visible = False
            .PivotItems("Name4").Visible = False
            .PivotItems("Name5").Visible = False
            .PivotItems("Name6").Visible = False
        End With
    Next
End Sub