Handling pivot tables with macros - Filtering fields

Hello!
How can I filter items from a certain field of a Pivot Table without having to use something like

With ActiveSheet.PivotTables("Table1").PivotFields("Field1")
        .PivotItems("Item1").Visible = False
        .PivotItems("Item2").Visible = False
        .PivotItems("Item3").Visible = False
        .PivotItems("Item4").Visible = False
        .PivotItems("Item5").Visible = False
                        .
                        .
                        .
                        .
                        .
                        .
        .PivotItems("ItemN").Visible = False
End With

where every item has to be turned off one by one? Is it possible to hide them all and then use visible.true to show only the item I want to see? Keep in mind that the items names aren't as simple as shown in the code, so using a changing string to call each name inside a loop isn't possible.
Thanks in advance