Button that refreshes all pivot tables at once

[Guest]

I have a workbook that has a lot of pivot tables in it. I currently have to
manually refresh each on in the standard method of right clicking on the
table and hitting refresh.

Is there a way to create a button that I can hit once and will refresh all
the tables at once?

 

[Dave Peterson]

Option Explicit
Sub DoThemAll()
ThisWorkbook.RefreshAll
End Sub

You could add a button from the forms toolbar to any sheet (or all sheets) and
assign this single macro to all of them.

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm