How to cycle through pivot table column labels?

[RADO]

I need to cycle through all visible labels in pivot table columns. I tried
to use this code:

Set pt = Sheets("Table").PivotTables(1)

For Each pf In pt.ColumnFields
For Each pi In pf.PivotItems
With pi.LabelRange.Interior
.ColorIndex = 25
End With
Next pi
Next pf

If all items are visible, it works fine, but hidden items cause error. I am
trying to avoid using error handler. Anybody knows a better way?

Thanks much -
RADO

 

[BrianB]

FWIW I tested your code in Excel 97 and it works correctly whether the
PT columns are hidden or not.