Hi

I want to hide all item in a pivotfield , but not the first one. Now I use
this code, but it takes a lot of time to loop (4000 items). Can I do it in a
other way, to do it faster?

With ActiveSheet.PivotTables("PivotTable1").PivotFields ("PRODNO")
For I = 2 To .PivotItems.Count
.PivotItems(I).Visible = False
Next I
End With

Regards // Lasse