Yes or No Message Box

[Guzzlr]

Hello All,

I need a Yes or No message box (which reads: "TEST")
If I choose Yes, then the program runs.
If I choose No, then the program exits, and the program does not run.
Thanks for the help
excel 2013

 

[JoeMo]

Sub test()
Dim ans As Long
ans = MsgBox("Run the program?", vbYesNo, "TEST")
If ans = vbNo Then Exit Sub
'your program code here
End Sub

 

[Jaafar Tribak]

Something along these lines :

Sub test()
    If MsgBox("test", vbYesNo) = vbYes Then
        MsgBox "code running."
    End If
End Sub

 

[Guzzlr]

ans = MsgBox(" Clearing Sheets Will Delete Any Added Sheets. Select Yes to DELETE ANY ADDED Sheets ", vbYesNo, "TEST")
If ans = vbNo Then Exit Sub

For Each sht In ActiveWorkbook.Worksheets
    If (sht.Name <> "Instructions") And (sht.Name <> "Revisions") And (sht.Name <> "Template") Then
    sht.Select
        With Selection
            ActiveWindow.SelectedSheets.Delete
        End With
    End If
Next sht

Here's My Code, which is working, thank you
Question:
The MsgBox message is quite long, how do I get the message to show on two lines in the message box, instead of one long line?
Thanks for the help

 

[JoeMo]

ans = MsgBox(" Clearing Sheets Will Delete Any Added Sheets. Select Yes to DELETE ANY ADDED Sheets ", vbYesNo, "TEST")
If ans = vbNo Then Exit Sub

For Each sht In ActiveWorkbook.Worksheets
    If (sht.Name <> "Instructions") And (sht.Name <> "Revisions") And (sht.Name <> "Template") Then
    sht.Select
        With Selection
            ActiveWindow.SelectedSheets.Delete
        End With
    End If
Next sht

Here's My Code, which is working, thank you
Question:
The MsgBox message is quite long, how do I get the message to show on two lines in the message box, instead of one long line?
Thanks for the help

You are welcome.

For a two-line msgbox change this

ans = MsgBox(" Clearing Sheets Will Delete Any Added Sheets. Select Yes to DELETE ANY ADDED Sheets ", vbYesNo, "TEST")

to this:

ans = MsgBox(" Clearing Sheets Will Delete Any Added Sheets." & vbNewLine & "Select Yes to DELETE ANY ADDED Sheets ", vbYesNo, "TEST")