Runtime error 1004

[jignesh142]

hi can any one help me , i am getting Runtime error 1004- Applicaton defined , object defined error after the first pt5 run ( ie.when pt4 executes)




Private Sub CommandButton1_Click()
Dim pt2, pt4, pt5, pt6, pt8, pt9, pt10, pt11 As PivotTable

Set pt5 = Sheets(2).PivotTables("PivotTable5")
pt5.PivotFields("Operation Number").ClearAllFilters
pt5.PivotFields("Operation Number").CurrentPage = Range("L2").Value

Set pt4 = Sheets(2).PivotTables("PivotTable4")
pt4.PivotFields("Operation Number").ClearAllFilters
pt4.PivotFields("Operation Number").CurrentPage = Range("L2").Value

Set pt2 = Sheets(2).PivotTables("PivotTable2")
pt2.PivotFields("Operation Number").ClearAllFilters
pt2.PivotFields("Operation Number").CurrentPage = Range("L2").Value

Set pt10 = Sheets(2).PivotTables("PivotTable10")
pt10.PivotFields("Operation Number").ClearAllFilters
pt10.PivotFields("Operation Number").CurrentPage = Range("L2").Value

Set pt11 = Sheets(2).PivotTables("PivotTable11")
pt11.PivotFields("Operation Number").ClearAllFilters
pt11.PivotFields("Operation Number").CurrentPage = Range("L2").Value

Set pt6 = Sheets(2).PivotTables("PivotTable6")
pt6.PivotFields("Operation Number").ClearAllFilters
pt6.PivotFields("Operation Number").CurrentPage = Range("L2").Value

Set pt8 = Sheets(2).PivotTables("PivotTable8")
pt8.PivotFields("Operation Number").ClearAllFilters
pt8.PivotFields("Operation Number").CurrentPage = Range("L2").Value

Set pt9 = Sheets(2).PivotTables("PivotTable9")
pt9.PivotFields("Operation Number").ClearAllFilters
pt9.PivotFields("Operation Number").CurrentPage = Range("L2").Value



End Sub

[Krishna Kumar]

Edit your post and use code tags.

[jignesh142]

the post is edited

[jignesh142]

can anybody please help me?

[mancubus]

are you sure you have all those pivot tables in second (from left) sheet?