There should be a Refresh All feature, enabling all pivot tables .

[JL1981]

....within a file or workbook to be refreshed with a single click.

 

[Frank Kabel]

Hi
try the following macro
sub foo()
activeworkbook.refreshall
end sub