If you only want to show one product why not just drag the Prod No off of the
table and include it in the header? In the header you can just select the
first item.

HTH

"Lasse Matsson" wrote:

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