Hide 2 iitems in filter in filters in OLAP pivot table - Run-time error 1004. Enable to set the CurrentPage property of the PivotField class

[Mettik]

Hello,

I have OLAP pivot table and in filters I have options where is more then 200 items and for future there can be more items.

I need to hide two of them and the others to make visible.

This code make visible the items, but I need to hide them and make the others visible.

Could anybody help me with this please?

Thank you

Martin

ActiveSheet.PivotTables("PivotTable4").PivotFields( _
"[Customer].

.

").VisibleItemsList _
= Array("[Customer].

.&[TEST1]", _
"[Customer].

.&[TEST2]")​