Agfdhyk

I have some code that uses a cell value to filter a pivot table, but I want to repeat this code (in the same worksheet) for more cells that affect more pivot tables. Below is the code I have tried. Unfortunately only the first subroutine works

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim xPTable As PivotTable

    Dim xPFile As PivotField

    Dim xStr As String

    On Error Resume Next

    If Intersect(Target, Range("AF11:AF12")) Is Nothing Then Exit Sub

    Application.ScreenUpdating = False

    Set xPTable = Worksheets("Income").PivotTables("State")

    Set xPFile = xPTable.PivotFields("Territory")

    xStr = Target.Text

    xPFile.ClearAllFilters

    xPFile.CurrentPage = xStr

    Application.ScreenUpdating = True

 End Sub



Private Sub Worksheet_Change(ByVal Target As Range)

     Dim xPTable2 As PivotTable

     Dim xPFile2 As PivotField

     Dim xStr2 As String

     On Error Resume Next

     If Intersect(Target, Range("AF13:AF14")) Is Nothing Then Exit Sub

     Application.ScreenUpdating = False

     Set xPTable2 = Worksheets("Income").PivotTables("Region")

     Set xPFile2 = xPTable2.PivotFields("State")

     xStr2 = Target.Text

     xPFile2.ClearAllFilters

     xPFile2.CurrentPage = xStr2

     Application.ScreenUpdating = True

End Sub



Private Sub Worksheet_Change(ByVal Target As Range)

    Dim xPTable3 As PivotTable

    Dim xPFile3 As PivotField

    Dim xStr3 As String

    On Error Resume Next

    If Intersect(Target, Range("AF15:AF16")) Is Nothing Then Exit Sub

    Application.ScreenUpdating = False

    Set xPTable3 = Worksheets("Income").PivotTables("Center")

    Set xPFile3 = xPTable3.PivotFields("Region")

    xStr3 = Target.Text

    xPFile3.ClearAllFilters

    xPFile3.CurrentPage = xStr3

    Application.ScreenUpdating = True

 End Sub