Application-defined or object-defined error

[bulldaddy1]

Good afternoon...

I recorded a Macro for a pivot table that turns on the Top 10 Value Filter and it works perfectly...however, if I was to click on the command button after it has already filtered the Top 10, I get a Run-time error 1004.
Is there any code that could be added to prevent this from happening?

Thank you for your time and expertise!

Sub Top10Units()
'
' Top10Units Macro
'

'
ActiveSheet.PivotTables("PivotTableUnit").PivotFields("Brand").PivotFilters. _
Add2 Type:=xlTopCount, DataField:=ActiveSheet.PivotTables("PivotTableUnit") _
.PivotFields("CY Vol"), Value1:=10
Range("J6").Select
End Sub

 

[Michael M]

Try clearing the existing filter before you run the current filter

Sub Top10Units()
ctiveSheet.PivotTables("PivotTableUnit").PivotFields("Brand").clearAllFilters
ActiveSheet.PivotTables("PivotTableUnit").PivotFields("Brand").PivotFilters. _
Add2 Type:=xlTopCount, DataField:=ActiveSheet.PivotTables("PivotTableUnit") _
.PivotFields("CY Vol"), Value1:=10
Range("J6").Select
End Sub

 

[bulldaddy1]

Michael M! You are genius!!!!
Thank you SO MUCH for your time and expertise...that works perfect.
Have a great weekend!

 

[Michael M]

Glad to help..??