Code to update all pivot tables in a workbook is slow

Hi All.

I'm using the below code to update all pivot tables in a workbook based on the data selected in a validated cell which contains a list of company names. It's running very slowly (but it runs), I'd appreciate any pointers to speed it up.

Please Login or Register  to view this content.

It also works intermittently - sometimes I have to run it twice to make it work.

I put this section of code in twice which remidied it, but I'm not convinced it's the most efficient method!

Please Login or Register  to view this content.

Thanks All.

Simon

Don't now about 2007 but 2003 has a custom button for " update all"