I am attempting to have two Pivot Table Report filters (PivotTable1) update based on values of cells on another sheet ("Summary"). With the following code, it only updates on the first set of instructions - when E4 is updated, "Names" filter will change but not "Sex".
Any help is appreciated!
Any help is appreciated!
Code:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Update first Names filter
If Intersect(Target, Range("E4")) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Sheets("Pivottables").PivotTables("PivotTable1").PivotCache.Refresh
With Worksheets("Pivottables").PivotTables("PivotTable1")
.PivotCache.Refresh
.PivotFields("Names").CurrentPage = Target.Value
End With
Application.EnableEvents = True
'Update Sex filter
If Intersect(Target, Range("E5")) Is Nothing Then Exit Sub
On Error Resume Next
Application.EnableEvents = False
Sheets("Pivottables").PivotTables("PivotTable1").PivotCache.Refresh
With Worksheets("Pivottables").PivotTables("PivotTable1")
.PivotCache.Refresh
.PivotFields("Sex").CurrentPage = Target.Value
End With
Application.EnableEvents = True
End Sub