Event Before refresh pivot cache

[Paul_Hossler]

The only other ways I know would be to 1) have your own Refresh button (below), or to 2) automatically Refresh the PT after you make a change (manually or with macro) to the PT's source data range (attachment)

Option Explicit

Sub MyRefresh()
    Dim pt As PivotTable
    
    With ActiveSheet
        .Range("C2").Value = 3 * Worksheets("Sheet1").Range("C2").Value
    
        For Each pt In .PivotTables
            Application.EnableEvents = False
            pt.RefreshTable
            Application.EnableEvents = True
        Next
    End With
End Sub