Error 400

[ddtpmyra]

I have this drop down menu all is fine but when i keep on shifting from different selection I got stuck with error 200

heres the SCENARIO>>>>>>
drop down menu choices are:
all fruits
orange
plum

ERROR HAPPENS WHEN I DO THIS>>>>
after one round of selection
from all fruits
then, oranges,
then plum ,
then back to all fruits again
then select orange I got that error.

QUESTION>>>>>>> >>>>>>>>
Is this about memory that excel can't handle? after one cylce it cant do it again?

is there a way to hide the error and push to the next step?

Sub Tree()
Application.ScreenUpdating = False

 Sheet4.PivotTables("pivot_fruit1").PivotFields("tree"). _
        CurrentPage = Sheet20.Cells(10, 22).Value
 Sheet4.PivotTables(pivot_fruit_others1).PivotFields("tree"). _
        CurrentPage = Sheet20.Cells(10, 22).Value
end sub

[zmbd]

1) You don't mention what version of Excel.
2) Title says Error 400, text Error 200

Please post the EXACT, title (if any), Error number, and Text shown in the error box. This is required information as some errors have parameters that are set at break-point

3) Line 6 of posted code, most likly a typo here, you do not have quotes around the table name; thus, it is being treated as as variable.

It's always better to have the “explicate” set in the VBA options; thus, requiring you to have all of your variables declared. This way you can use the debug/compile to find the simple errors.