Capture Pivot table filter count

I am writing a procedure to perform some actions based on the change in the
amount of items selected via the pivot table filter selection change.

Is there a way to capture the total amount of items in that list whether or
not they are selected?

Maybe:

Sub PvtItem()
Dim itm As Long
With ActiveSheet.PivotTables("PivotTable1").PivotFields("The Code")
itm = .PivotItems.Count
Debug.Print itm
End With
End Sub


Hope this helps
Rowan

whornak wrote:
> I am writing a procedure to perform some actions based on the change in the
> amount of items selected via the pivot table filter selection change.
>
> Is there a way to capture the total amount of items in that list whether or
> not they are selected?