getting application defined error

[anantheswar]

while filtering the pivot table am getting the application defined error. please help


Sub FilterPivotAmount()
Dim pt As PivotTable
Dim pf As PivotField


Set pt = ThisWorkbook.ActiveSheet.PivotTables("PivotTable2")

Set pf = pt.PivotFields("Name")
pf.ClearAllFilters
pf.Orientation = xlRowField


pf.CurrentPageName = " "




End Sub

 

[Domenic]

The CurrentPageName property of the PivotField object only applies to PivotTables connected to an OLAP data source, as per the following article...

PivotField.CurrentPageName property (Excel)

Office VBA reference topic

learn.microsoft.com

Cheers!

 

[anantheswar]

The CurrentPageName property of the PivotField object only applies to PivotTables connected to an OLAP data source, as per the following article...

PivotField.CurrentPageName property (Excel)

Office VBA reference topic

learn.microsoft.com

Cheers!

Thank you for the reply.

Could you please guide me how can i loop the data in the range for multiple filter

 

[Domenic]

Sorry, I don't quite understand, can you please elaborate?