Selectively refresh pivot table

[chetu]

I have two pivot tables, but when my macro refreshes the pivot tables it refreshes all, but I want it to pick say for example;

Say range "B8" of pivot table 1 is 60, I want the range "x2" of pivot table 7 also to pick 60 and then refersh it. Below is the coding which I have done, can anyone help?

[CODE=vb]Range("B8").Sel ect
ActiveSheet.Piv otTables("Pivot Table1").PivotC ache.Refresh
Range("B31").Se lect
ActiveSheet.Piv otTables("Pivot Table2").PivotC ache.Refresh
Range("B54").Se lect
ActiveSheet.Piv otTables("Pivot Table3").PivotC ache.Refresh
Range("B77").Se lect
ActiveSheet.Piv otTables("Pivot Table4").PivotC ache.Refresh
Range("B100").S elect
ActiveSheet.Piv otTables("Pivot Table5").PivotC ache.Refresh
Range("B129").S elect
ActiveSheet.Piv otTables("Pivot Table6").PivotC ache.Refresh
Range("X2").Sel ect
ActiveSheet.Piv otTables("Pivot Table7").PivotC ache.Refresh
Range("X24").Se lect
ActiveSheet.Piv otTables("Pivot Table8").PivotC ache.Refresh
Range("X49").Se lect
ActiveSheet.Piv otTables("Pivot Table9").PivotC ache.Refresh
Range("X76").Se lect
ActiveSheet.Piv otTables("Pivot Table10").Pivot Cache.Refresh
Range("X101").S elect
ActiveSheet.Piv otTables("Pivot Table11").Pivot Cache.Refresh
Range("AM5").Se lect
ActiveSheet.Piv otTables("Pivot Table12").Pivot Cache.Refresh
Range("AM29").S elect
ActiveSheet.Piv otTables("Pivot Table13").Pivot Cache.Refresh
Range("AM59").S elect
ActiveSheet.Piv otTables("Pivot Table14").Pivot Cache.Refresh
Range("AM89").S elect
ActiveSheet.Piv otTables("Pivot Table15").Pivot Cache.Refresh
Range("AM115"). Select
ActiveSheet.Piv otTables("Pivot Table16").Pivot Cache.Refresh
MsgBox ("Please proceed to updating the layout rotation")

End Sub[/CODE]

Thanks a Mill!