Microsoft Office

Part VI
Programming Excel with VBA
To get a response from a message box, you can assign the result of the MsgBox function to a variable. The
following code uses some built-in constants (described in the “Constants That Are Used in the MsgBox
Function” sidebar) to make it easier to work with the values that are returned by MsgBox:
Sub GetAnswer()
Ans = MsgBox(“Continue?”, vbYesNo)
Select Case Ans
Case vbYes
‘ ...[code if Ans is Yes]...
Case vbNo
‘ ...[code if Ans is No]...
End Select
End Sub
When this procedure is executed, the Ans variable contains a value that corresponds to vbYes or vbNo.
The Select Case statement determines the action to take based on the value of Ans.
You can easily customize your message boxes because of the flexibility of the button argument. Table 41.1
lists the built-in constants that you can use for the button argument. You can specify which buttons to display,
whether an icon appears, and which button is the default.
TABLE 41.1
Constants That Are Used in the MsgBox Function
Constant Value Description
vbOKOnly 0 Display OK button.
vbOKCancel 1 Display OK and Cancel buttons.
vbAbortRetryIgnore 2 Display Abort, Retry, and Ignore buttons.
vbYesNoCancel 3 Display Yes, No, and Cancel buttons.
vbYesNo 4 Display Yes and No buttons.
vbRetryCancel 5 Display Retry and Cancel buttons.
vbCritical 16 Display Critical Message icon.
vbQuestion 32 Display Warning Query icon.
VBExclamation 48 Display Warning Message icon.
vbInformation 64 Display Information Message icon.
vbDefaultButton1 0 First button is default.
vbDefaultButton2 256 Second button is default.
vbDefaultButton3 512 Third button is default.
718