Sub Macro1()

Set nwSheet = Worksheets.Add
nwSheet.Activate

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

End Sub

--
Regards,
Tom Ogilvy

"Tim" <Tim@discussions.microsoft.com> wrote in message
news:CB6B77BF-27A8-4D1B-8307-AB0A2C18609F@microsoft.com...
> 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
>