Using 2003


The code below does not work because "Show All" is not a valid PivotItems
property class for the PivotField class.

With ActiveSheet.PivotTables("PivotTable1") _
.PivotFields("Split")
.PivotItems("Show All").Visible = False
.PivotItems("1200-01 · Prescription").Visible = True
End With

How can I VBA-code my desire to "Show All".Visable = True (or False)?

TIA Dennis