Pivot Tables: error in 'Field.CurrentPage = NewCat'

[H2V]

Hola Ray707.
He sufrido este mismo problema desde hace unos meses.


Para solucionarlo he hecho 2 cosas:
1: El campo currentPage debe ser tipo Variant
2: Escribir la sentencia completa obviando los Active... y los With .


Prueba lo siguiente

Dim NewCat As Variant
....


Worksheets("Client").PivotTables("PivotTable7").PivotFields("TEBUD").ClearAllFilters
Worksheets("Client").PivotTables("PivotTable7").PivotFields("TEBUD").CurrentPage = NewCat