Update Pivots after Data Refresh.vba

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim i As Integer
  Dim p As Integer
  
  For i = 1 To Worksheets.Count
    If (Worksheets(i).Name <> "Data") Then
      For p = 1 To Worksheets(i).PivotTables.Count
        Worksheets(i).PivotTables(p).PivotCache.Refresh
      Next p
    End If
  Next i
End Sub