VBA to expand & collapse multiple pivot tables at the same time

Hi, I have some VBA (provided by OnErrorGoto0) that allows for expanding or collapsing multiple pivot tables of similar structure, controlling the expand/collapse from just one of the pivot tables. The code works great one pivot item at a time, but fails when attempting to Expand Entire Field or Collapse Entire Pivot Field. My novice attempts at adjusting the code to include the Expand/Collapse Entire Field options have failed... hoping someone can help. I've included the code below, and I'm running Excel 2010.

I also have thread posted here:
http://www.mrexcel.com/forum/excel-q...same-time.html

Thanks in advance.
-j

Please Login or Register  to view this content.

Thank you MarvinP! I'll see if I can adapt your code to my needs. I'll post the final solution I land on.

I did manage to get it working by adjusting the original code, but it's unusably inefficient/slow (adjusted code, below). More to come.

Please Login or Register  to view this content.