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?