Pivot table.... list of visible items

I have a pivottable with 100 Pivotitems.

some of the items are hidden. I want a macro which will list all the items that are not hidden/visible. how do i do that?

I used the visible functinality but it does not work.

Please Login or Register  to view this content.

----
if PT.PivotItems(x).Visible = True ---> this is always false whether hidden or not