Sub 処理を途中で全終了する_End() 'End は全終了／Exit Sub はこのSubだけを終了

    確認 = MsgBox("開始してもよろしいですか？", vbYesNo + vbDefaultButton1)
    
    If 確認 = vbYes Then
        '「はい」なので、何もしない
    Else
        '「いいえ」なので、終了する
        MsgBox "それでは処理を全終了します。"
        
        End
        
    End If
    
End Sub