ドロップダウンリストを設定すると他のマクロがエラーになる

質問

マクロ初心者です（質問も初心者です）
下記のマクロを（抜粋）を使用していましたが別のセルに
ドロップダウンリストを設定すると「実行時エラー’1004’」
アプリケーション定義またはオブジェクト定義のエラーです　とでます
なぜでしょうか？　対処方法があれば教えてください
宜しくお願いします
End If

'===============画像の掃除
For Each mySP In ActiveSheet.Shapes
myAD1 = mySP.TopLeftCell.MergeArea.Address
myAD2 = Target.Address
If myAD1 = myAD2 Then mySP.Delete
Next

回答No.1

hige_082 · ベストアンサー

こんな方法でよい？

'===============画像の掃除
For Each mySP In ActiveSheet.Shapes
Debug.Print mySP.Name
If InStr(mySP.Name, "Drop Down") = 0 Then
myAD1 = mySP.TopLeftCell.MergeArea.Address
myAD2 = Target.Address
If myAD1 = myAD2 Then mySP.Delete
End If
Next

お礼

グラッチェ！
完璧です
ありがとうございました。
初心者なもので助かります。
もっと勉強しようと思います。
本当にありがとうございました。