Hola, buenos dias! 

Tengo una macro que funciona OK para incorporar a una tabla dinamica un filtro de acuerdo al valor de la celda (F1), el problema es que solo se ejecuta dicha macro si doy enter en esa celda. La celda F1 tiene un valor, que viene de otra hoja, es por eso que si no le doy enter la macro no identifica que he modificado el valor de la celda.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F1")) Is Nothing Then

    'En base al campo Region de la Tabla dinámica1:

    With PivotTables("Tabla dinámica1").PivotFields("Sucursal OK")  

        'Limpiar todos los filtros

        .ClearAllFilters

        'Filtrar por el valor de la celda F1

        On Error Resume Next

        .CurrentPage = Range("F1").Value  

    End With

End If

End Sub