VBA: Unable to set CurrentPage property of PivotField class" error

[Melimob]

Any ideas what is wrong here.. spent hours trying to solve this..

Option Explicit



Sub ChangePiv()

  Dim pt As PivotTable

  Dim pf As PivotField

  Dim str As String


 Set pt = Sheet21.PivotTables("PivotTable5")

 Set pf = pt.PivotFields("[LeadData].[Introducer (Actual)].[Introducer (Actual)]")

 str = Sheet21.[R1].Value



 pf.ClearAllFilters

pf.CurrentPage = str

 

End Sub



[CODE=vba]

[/CODE]

the current page is highlighted as error.

Objective: combo box active x selection is made which updates the (data model based) pivot table.
I need to add in also another 2 filters from another 2 either combo boxes or just drop downs as its just year and month.

I will love you forever if anyone can help please!

thank you!