Skip to content

Instantly share code, notes, and snippets.

@ah45
Created March 11, 2016 07:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ah45/6069cfb8fbdad506eb97 to your computer and use it in GitHub Desktop.
Save ah45/6069cfb8fbdad506eb97 to your computer and use it in GitHub Desktop.
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment