Skip to content

Instantly share code, notes, and snippets.

/Worksheet_Change.bas

Created February 7, 2018 09:19
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 anonymous/8ff0b381d3827fcc172f8e9c4f5f0b30 to your computer and use it in GitHub Desktop.
Save anonymous/8ff0b381d3827fcc172f8e9c4f5f0b30 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Worksheet_Change.bas
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A2:C20"), Range(Target.Address)) Is Nothing Then
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
End If
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment