loop columns of a pivot table

[ali_hijazi]

I got a pivot table with several dimensions

I need a macro that loops through all dimensions of a pivot table so that it Collapses All instead of right clicking and click Collapse All

Please advise

[sivarajs]

This might help you to proceed

See the attachment

[hani_saghir]

Allow me to demonstrate Ali's concern:

in this snapshot you can see that you have 5 dimensions with some rows expanded.

we need to give the use the possibility to collapse all dimensions. if you click "Collapse dimension columns", the get collapsed, however f you click back the +, the old expansion will return as is. and what is not really user friendly is that a user might drill down a chart on a day, and many days later open that chart to find it expanded, so the user will have to collapse each column one by one.

is there a way to write a macro that loops the dimensions, and collpases them one by one?