L
LuisE
I'm trying to make all pivot items non visible and then mak only one visible
based on a cell value.
Dim pitem As PivotItem
Sheet3.PivotTables("TypesOfService").ManualUpdate = True
''''''Show all items
For Each pitem In
Sheet3.PivotTables("TypesOfService").PivotFields("Type of service").PivotItems
pitem.Visible = False
Sheet3.PivotTables("TypesOfService").PivotFields("Type of
service").PivotItems("(blank)").Visible = False
Next
Thanks in advance
based on a cell value.
Dim pitem As PivotItem
Sheet3.PivotTables("TypesOfService").ManualUpdate = True
''''''Show all items
For Each pitem In
Sheet3.PivotTables("TypesOfService").PivotFields("Type of service").PivotItems
pitem.Visible = False
Sheet3.PivotTables("TypesOfService").PivotFields("Type of
service").PivotItems("(blank)").Visible = False
Next
Thanks in advance