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.

 For x to 100 then

if PT.PivotItems(x).Visible = True --> this is not working
  sheet(2).cell(x,1) = PT.PivotItems(x) 
Endif

end for

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