メッセージBOXの×をクリックしたら中止にする

質問

いつもお世話になります。
下記のマクロで実行前に、メッセージBOXでＹＥＳ、ＮＯを聞いていますが、最終的にYESである「消去します」の「OK」をクリックせずに、「×」をクリックしても「消去」を実行します。
これを、「×」をクリックしたら、マクロをキャンセルすることはできないでしょうか？

もし、方法が有るなら、下記の記述の「どこに」「どのような」記述を追加したら良いか、ご教授ねがえないでしょうか。
よろしくお願いいたします。

Sub Macro1()

' Macro1 Macro
'
If vbYes = MsgBox("出勤・休日のデータを消去してもいいですか？", vbYesNo) Then

MsgBox "消去します。"

Else
MsgBox "中止します。"

Exit Sub
End If

　 Range("C4:L34,N4:W34,Y4:AD34,AF4:AK34").Select
Selection.ClearContents

Range("C4").Select

MsgBox "正常に処理を終了しました"

End Sub

回答No.1

keithin · ベストアンサー

＞MsgBox "消去します。"

ボタンの種類を指定しなかった場合（＝vbokonlyを指定したのと同じになる）は，msgbox関数の返値は×で消してもvbokしかありません。

最終確認の意図で
if msgbox("消去します",vbokcancel) <> vbok then exit sub
などのようにするしかありません。

お礼

いつも、お世話になりありがとうございます。
私の意図した通りの動作になりました。
作業がマンネリ化してくると、うかっとして反射的にOK→OKとクリックして、クリックした瞬間に「アッ！しまった」と思うことが有りまして、安全側になるべく振りたかったのです。
いつも、いつも的確なご指導をありがとうございます。

回答No.2

ki-aaa

こんにちわ

>作業がマンネリ化してくると、うかっとして反射的にOK→OKとクリックして

これを避けるためデフォルトボタンを設定してはどうでしょう。

If vbYes = MsgBox("出勤・休日のデータを消去してもいいですか？", vbYesNo + vbDefaultButton2) Then

余計なお世話でした。

お礼

こんにちは、ご助言ありがとうございます。
最初、どこがどう違うのかわかりませんでしたが、無意識でＥｎｔｅｒキーを押した場合は、中止が優先される仕掛けになっているんですね！
これは、頂きです。
より安全側に振られたボタンの設定だと思いました。
知りませんでした。
ありがとう、御座いました。