I use VBA to make a pivot table. When the pivot table is created I want the PivotTable Fields Pane to be displayed and all the tables in it to be collapsed.
The PivotTable Fields Pane opens expanded by default. I don't want users to have to manually click on "Collapse All" all the time.
Does anyone know a VBA code that can collapse tables in PivotTable Fields pane?

I use Office 2019. and Windows 10.

Pivot pane Collapse-Expand.png