Hi folks,

I have this problem. I would like to refresh all pivot tables in a specific worksheet.

I don't wont to use the 'RefreshAll' method since it is refreshing other things in my workbook.

Thank you,

Yuval

Try this (substituting the name of the specific worksheet):

Sub RefreshPT()
    Dim wsh As Worksheet
    Dim pvt As PivotTable
    Set wsh = Worksheets("MySheet")
    For Each pvt In wsh.PivotTables
        pvt.RefreshTable
    Next pvt
End Sub

Thanks a lot! Exactly what I needed.

Yuval