run-time error '1004: unable to get the pivottables property of the worksheet class

[sighsigh]

Hello,

I know you're probably tired of all the 1004 questions, but i'm just puzzled!

The goal of the code is simple: fill all date (pivottables, pivot charts, normal tables, etc), to only show "J1" or "Samsung J1".
The odd thing is, i can run this code once, perfectly, and than not anymore (i get the error). If i remove the filter from the pivot, i can run it again, but only once :s. Any ideas why this would happen?

' Sheets("Pivot").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Type").ClearAllFilters
ActiveSheet.PivotTables("PivotTable4").PivotFields("Type").CurrentPage = "J1"
Sheets("Charts").Select
ActiveSheet.PivotTables("Standard Chart").PivotFields("Type").ClearAllFilters
ActiveSheet.PivotTables("Standard Chart").PivotFields("Type").CurrentPage = _
"J1"
Sheets("Results by week").Select
ActiveSheet.PivotTables("PivotTable8").PivotFields("Type").ClearAllFilters
ActiveSheet.PivotTables("PivotTable8").PivotFields("Type").CurrentPage = "J1"
Sheets("ActivationsMigMNP").Select
ActiveSheet.PivotTables("PivotTable10").PivotFields("Type").ClearAllFilters
ActiveSheet.PivotTables("PivotTable10").PivotFields("Type").CurrentPage = "J1"
Sheets("Sales").Select
ActiveSheet.Range("$M$1:$AI$1002").AutoFilter Field:=17, Criteria1:="J1"
Sheets("Orders").Select
Range("J1001").Select
ActiveSheet.Range("$A$1:$J$1000").AutoFilter Field:=6, Criteria1:= _
"Samsung J1"
End Sub



Same for the one where i filter on P8 instead:
' Sheets("Pivot").Select
ActiveSheet.PivotTables("PivotTable4").PivotFields("Type").ClearAllFilters
ActiveSheet.PivotTables("PivotTable4").PivotFields("Type").CurrentPage = "P8"
Sheets("Charts").Select
ActiveSheet.PivotTables("Standard Chart").PivotFields("Type").ClearAllFilters
ActiveSheet.PivotTables("Standard Chart").PivotFields("Type").CurrentPage = _
"P8"
Sheets("Results by week").Select
ActiveSheet.PivotTables("PivotTable8").PivotFields("Type").ClearAllFilters
ActiveSheet.PivotTables("PivotTable8").PivotFields("Type").CurrentPage = "P8"
Sheets("ActivationsMigMNP").Select
ActiveSheet.PivotTables("PivotTable10").PivotFields("Type").ClearAllFilters
ActiveSheet.PivotTables("PivotTable10").PivotFields("Type").CurrentPage = "P8"
Sheets("Sales").Select
ActiveSheet.Range("$M$1:$AI$1002").AutoFilter Field:=17, Criteria1:="P8"
Sheets("Orders").Select
ActiveSheet.Range("$A$1:$J$1000").AutoFilter Field:=6, Criteria1:= _
"Huawei P8"

 

[sighsigh]

oh, it should be worth mentionning that the error apparantly takes place at the second line of code.
ActiveSheet.PivotTables("PivotTable4").PivotFields("Type").ClearAllFilters