選択式のダイアログボックスを表示する
Dim
rc
As
Long
rc = MsgBox(
"OKで続行、キャンセルで中止"
, vbOKCancel)
If
rc = vbCancel
Then
Exit
Sub
End
If