指定のセルを選択したらメッセージを表示させたい

質問

選択したセルの行を削除する・・・という単純なマクロがあります。

Sub 削除()

Selection.EntireRow.Delete
　　End Sub

これに、(D1:F1)(C3)が選択された場合のみ
「削除無効」というメッセージを表示させ、OK→マクロ終了としたいのですがどのようにしたら良いのでしょうか？

よろしくお願いします

回答No.1

keithin · ベストアンサー

よく使われるのは例えば
if not application.intersect(range("C3,D1:F1"), selection) is nothing then
msgbox "無効範囲が選択されている"
exit sub
end if
のように。

それで。
>選択された場合のみ

たとえば「C3セル」に着目して
１）C3セルが一つ選ばれてアクティブセルである場合（悩み無し)
２）C3からD4が選ばれている場合(C3は選ばれているが他も選ばれている)
３）B2からC3が選ばれている場合(C3まで選ばれている)
４）B2からD4まで選ばれている（中に一応C3も入っている）
どこまでに限定してyes/noを判断するのか，ちゃんと決めておかないといけません。

お礼

お礼が遅くなり申し訳ありません。
お陰様で解決しました。ありがとうございました。