Loop through Pivot tables

[Corgan]

Hi

I was wondering if anyone knew of some code to loop through pivot tables? The issue I'm having is that I only want to loop through two specific pivots in a sheet not all pivots.

Thanks

 

[Trevor G]

What are you trying to achieve?

If you recorded a macro to look at selecting the first pivot and do something like update it, then the next it will give you the code you need to refer to both as they will have individual names.

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br><br><SPAN style="color:#00007F">Sub</SPAN> mcrPivots()<br><SPAN style="color:#007F00">'</SPAN><br><SPAN style="color:#007F00">' Basic select and update 2 Pivots</SPAN><br><SPAN style="color:#007F00">'</SPAN><br><br><SPAN style="color:#007F00">'</SPAN><br>    Range("I4").Select<br>    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh<br>    Range("P4").Select<br>    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh<br>    Range("A1").Select<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>