Excel Forum

Code: Select all

Sub Macro_Refresh()
    Sheets("PV_infer1").Select
    Range("B10").Select
    ActiveSheet.PivotTables("PivotTable14").PivotCache.Refresh
    Sheets("Log").Select
    Range("A2").Select
'ActiveSheet.PivotTables("Your Pivot Table Name").PivotCache.Refresh
End Sub

Code: Select all

Dim p As PivotTable
Dim s As Worksheet
For Each s In Worksheets
    For Each p In s.PivotTables
        p.PivotCache.Refresh
    Next p
Next s