Error when feeding pivot filters from drop down list

I am trying to change the filter in two pivot tables at the same time by selecting the region from a drop down list. However, I cannot make the the filters change even based on drop down list selection.

This is the code I am using:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  
  Application.EnableEvents = True
    
    If Target.Address = "$C$33" Then
        Sheet1.PivotTables("PVT1").PivotFields("RegionEast1").CurrentPage = Range("C33").Text
        Sheet1.PivotTables("PVT2").PivotFields("RegionEast2").CurrentPage = Range("C33").Text
    End If
    
    
End Sub

Thank you for your help.