Count Items in Pivot Drop-Down

[jjlafond]

Hello,

I am trying to write a few lines in vba to give me the number of items in a Pivot Dropdown (in this case, I want to know how many options there are under "Pay Period" which allows me to check multiple items and display multiple weeks of data)

I will be displaying the last 4 Pay Periods of data, but the number of Periods changes weekly and needs to be automatically counted.How can I count the number of items?

Thanks in advance.

 

[jjlafond]

I finally figured it out:

Dim NumberOfPP As Long
NumberOfPP = Sheets("Sheet 1").PivotTables("Pivot1").PivotFields("Pay Period").PivotItems.Count