How to find the items in a pivot field collection

[Glory]

I've tried a ridiculous assortment of statements and nothing is working.

As far as I can tell from VBA's help it should just be:

For Each Pvt in ActiveSheet.PivotTables("Name").PivotFields("Name").Item
MsgBox Pvt
Next

In fact, I shouldn't even need to put the "Item" on there, because the default method for all collections is "Item".

But it's not working.

 

[Krishnakumar]

May be...

For Each Pvt in ActiveSheet.PivotTables("Name").PivotFields("Name").Items
MsgBox Pvt.Name
Next

 

[Glory]

I've already tried that. I don't need the name. I need the ability to iterate through the list of items in the single PivotFields object I'm trying to work with.

I need to be able to check all the entries in a pivot drop-down, including those contained only in the pivot table's cache.

Edit: I do appreciate the post, though.

 

[Krishnakumar]

It should be PivotFields("Name").Items not PivotFields("Name").Item

 

[Glory]

I already tried that too. I'll go try it again.

 

[Glory]

Object doesn't support property or method.

 

[AlphaFrog]

This loops through all the items in the PivotField "Name"

For Each Pvt In ActiveSheet.PivotTables("Name").PivotFields("Name")[COLOR="Red"].PivotItems[/COLOR]
MsgBox Pvt
Next

If you DIM a variable as a PivotField, that will bring up the intellisense pop-up help for pivotfields e.g.

Dim pvt As PivotItem
Dim pf As PivotField

Set pf = ActiveSheet.PivotTables("Name").PivotFields("Name")

For Each pvt In pf.PivotItems
MsgBox pvt
Next

type pf. brings the intellisense pop-up help.