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