Hi folks,

I use the following code to get the items of PivotFields("Managers"). It
works ok but not exactly what I am looking for. In the
PivotFields("Managers"), I hide some of the items which I don’t want to show
on the list. Could anyone show me the way to exclude the hidden items? Any
help will be appreciated.

Thanks in advance.

Tim.

Sub Macro1()

Set nwSheet = Worksheets.Add
nwSheet.Activate

rw = 0
For Each pvtitem In Sheets("Sheet1").PivotTables("PivotTable1") _
.PivotFields("Managers").PivotItems
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtitem.Name

Next

End Sub