Thanks Rory!

Exactly what I needed.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Call Button1_Click
End Sub