Filter Pivot Table with VBA

[Euler271]

I'm trying to filter a pivot table when the user selects an item from an ActiveX combo box. (I need to use the ActiveX combo box because after the user selects an item I want a combo box in another worksheet to populate based on the user's selection. I haven't found a way to do that using Excel's pivot table filters.)

I keep getting error 1004 ("Unable to set the CurrentPage property of the PivotField class").

My code is:

Dim pf as PivotField
Set pf = ActiveSheet.PivotTables("Provider Lookup PT").PivotFields("TIN")
pf.ClearAllFilters
pf.CurrentPage = cboTIN.Value

Any help would be very much appreciated.

 

[Euler271]

It seems my problem was that I didn't have the field "TIN" in the Report Filter box. I was hoping I didn't need to display that filter.