modificar filtro de Tabla din. desde macro(inputbox)

[gustav2704]

Saludos

tengo una tabla dinamica sencilla pero deseo poder modificar el "filtro de informe" desde una macro con un criterio, los años, por ejemplo que solo muestre los datos entre 2009 y 2013 pero esto desde una macro para luego insertarle esa pregunta con un inputbox y hacerlo interactivo.

algo asi

Sub filtro_interactivo()
año2 = InputBox("Ingrese el año hasta donde quiere ver datos: ", "AÑO FINAL")
' el campo3 es la variable que va en el filtro y son años desde 2009 hasta 2019
If ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").items < año2 Then
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").Items.visible=true
End If
End Sub

esto es solo un boquejo porque creo que la propiedad items en pivotfields no esta definida

como si esta definida es asi

If ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").PivotItems < año2 Then
ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("campo3").PivotItems.visible =true

pero pivotitems es de la clase string por lo cual no puedo tratarlo como un numero,, alguna idea para poder filtrar mis datos con el inputbox como deseo

adjunto el archivo

es *******

muchas gracias

td_año1.zip