I think we need to see the whole of your sub to understand the problem.
Please copy it and paste it into an email (don't retype bits of it).

Also do you have "Option explicit" at the top of the module where the sub is?
If not you should put it there, right at the beginning above all the code.
Option explicit makes sure you have declared all the variables you are using.

The code

if sheets(activesheet.name).myshape.name="drop dwon 9" then

should be (I think)

if sheets(activesheet.name).myshape.name="DropDown9" then

This assumes that you have declared "myshape" as an object or as a shape using

Dim myshape as Shape

and then set it to something using

Set myshape = something

or you could have used it in a for next loop like

For Each myshape In ActiveSheet.Shapes

If we see your code  we will be more able to help.