Thread: Refresh Pivot table based on condition

You could try something like this...

Sub PivotMacro()
    Dim pt As PivotTable
    If Sheet1.Range("A1").Value = "Update PT" Then
        Set pt = ActiveSheet.PivotTables("MyPivot")
        pt.RefreshTable
    End If
End Sub

You could use something like this...

Sub AllWorkbookPivots()
Dim pt As PivotTable
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        For Each pt In ws.PivotTables
                    pt.RefreshTable
        Next pt
    Next ws
End Sub