Hi Tom,

The code only give me one manager which is not right. For example, I have
nine managers. I hide 3 of them. I am expecting 6 manager on the new sheet.
Could you help me?

Thanks.

Tim.

"Tom Ogilvy" wrote:

> 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
> >
>
>
>