Dynamic change pivot table from table on same sheet

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ThisWorkbook.RefreshAll
    Application.EnableEvents = True
End Sub