ExcelBanter - Pivot Table - How VBA to "Show All".Visable = True

ExcelBanter (https://www.excelbanter.com/)

- Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)

- - Pivot Table - How VBA to "Show All".Visable = True (https://www.excelbanter.com/excel-discussion-misc-queries/73993-pivot-table-how-vba-show-all-visable-%3D-true.html)

Dennis

Pivot Table - How VBA to "Show All".Visable = True

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

All times are GMT +1. The time now is 02:12 AM.