エクセルのオートシェープ削除について

質問

セルＥ９：Ｊ９までに斜めの斜線を引いて、削除するマクロを
初心者なりに作成しました。

斜線作成は以下のような感じです。
Set myRng = Range("E9:J9")
For Each sp In ActiveSheet.Shapes
If Not Intersect(Range(sp.TopLeftCell,sp.BottomRightCell), myRng) Is Nothing Then
sp.Delete
End If
Next
Set myRng = Nothing
で、フォームのボタンに登録させて罫線作ります。

ついでにリドゥボタン（戻る）も作成してやってみたのですが
以下のような感じで
Set myRng = Range("E9:J9")
For Each sp In ActiveSheet.Shapes
If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), myRng) Is Nothing Then
sp.Delete
End If
Next
Set myRng = Nothing

ですが、Ｌ９にリスト表示（入力規則のリストを設定）させたら
If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), myRng) Is Nothing Then
のところで1004エラーがでます。

リストはどうしても使用しなければならないので、どうしたらよいか？
どなたか詳しい方おられましたら、ご指導おねがいします。

回答No.1

merlionXX · ベストアンサー

入力規則のリストもShapeだからそうなるんでしょう。
以下のようにしたらどうでしょうか？

Set myRng = Range("E9:J9")
For Each sp In ActiveSheet.Shapes
If InStr(sp.Name, "Drop Down") = 0 Then
If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), myRng) Is Nothing Then
sp.Delete
End If
End If
Next
Set myRng = Nothing

お礼

なるほど、Shapeだったのですね。
勉強不足です＾＾；

問題なく作動しました。ありがとうございました。