VBA Code that refreshed all the pivot tables in the workbook

[Peakey123]

Hi All,

I need a VBA code that refreshes all the pivot tables in the workbook,

Any help would be great thanks

 

[Peakey123]

I am currently doing the following:

Private Sub CommandButton1_Click()

Dim PT As PivotTable
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
PT.RefreshTable
Next PT

Next WS


However I keep getting the run-time 1004 error.

 

[Declamatory]

Have you tried going into Data → connection properties and under the Refresh Control heading ensuring that "Enable background refresh" is unticked?

This can cause problems sometimes.

 

[Peakey123]

Thanks Declamatory works fine now