MsgBox Function

 

The MsgBox function in Excel VBA can return a result while a simple MsgBox cannot.

Situation:

MsgBox Function Example

Place a command button on your worksheet and add the following code lines:

1. First, we declare a variable called answer of type Integer.

Dim answer As Integer

2. We use the MsgBox function to initialize the variable answer with the input from the user.

The MsgBox function, when using parentheses, has three arguments. The first part is used for the message in the message box. Use the second part to specify which buttons and icons you want to appear in the message box. The third part is displayed in the title bar of the message box.

answer = MsgBox("Are you sure you want to empty the sheet?", vbYesNo + vbQuestion, "Empty Sheet")

Note: Place your cursor on vbYesNo in the Visual Basic Editor and click F1 to see which other buttons and icons you can use. Instead of the constants vbYesNo and vbQuestion, you can also use the corresponding values 4 and 32.

3. If the user clicks the Yes button, Excel VBA empties the sheet. If the user clicks the No button, nothing happens. Add the following code lines to achieve this.

If answer = vbYes Then
    Cells.ClearContents
Else
    'do nothing
End If

4. Click the command button on the sheet.

5. Click Yes.

Msgbox Function in Excel VBA

Result:

MsgBox Function Result

Do you like this free website? Please follow us on Google+