Handling Pivot Tables with macros - code runs slow

[Pichingualas]

I need help making my code run faster. My code is supposed to, upon double clicking on 1 item from a list of items that are present on a pivot table, hide all of the items but the one the user selected. Also if the user wants to show all the items again, he just has to double click on 1 of the first two cells of the list. It does what I want, but it takes a bit long to do it. Here it goes:

Please Login or Register  to view this content.

Thanks in advance for all your effort

[Swindon Dominic]

It is always a good idea to use turn calculation off (as well as screen updating) using
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic

[OnErrorGoto0]

Also use

Please Login or Register  to view this content.

before the code that alters the PT and then set it back to False afterwards.

[Pichingualas]

Thanks! That seems to have helped