Filtrar tabla dinámica por valor de una celda ?

Cuando el campo que elijo filtrar es numérico en la celda F1 no me funciona el siguiente código, si me funciona si el campo no es texto,

Si alguien puede ayudarme desde ya les agradezco

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("Talle")
        '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