シート選択時ピボット自動更新

入力シートから合計シートを選択した際にピボットの集計が即反映されたら作業効率が上がります。

コードの表示からＶＢＡの画面を開き現金合計のシートタブがアクティブになったらピボットの更新が行われるマクロです。

'Sub MACRO()
Private Sub Worksheet_Activate() 'あるシートがアクティブになったら自動実行
With Sheets("現金合計") '対象シート
    Dim pvt As PivotTable
    For Each pvt In ActiveSheet.PivotTables
        pvt.PivotCache.Refresh
    Next
End With '対象シート件おわり
End Sub