Pivot Tabelle - VBA

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim pt As PivotTable
For Each pt In Sh.PivotTables
pt.RefreshTable
Next
End Sub

aktualisiert es mir jedemal die Pivot Tabelle in den entsprechenden Worksheets (wenn ich darauf klicke). Kann ich nun ein Button einfügen, dem ich das Makro zuweisen kann? Ich möchte die Pivot Tabelle nur bei klick auf diesen Button updaten und nicht jedesmal wenn das Worksheet aktiviert wird.
Besten Dank!
Grüsse
Stephan