Message Box

[Guest]

I have a message box come up on a command button. It has the options: ok and
cancel after displaying the message. How do you set it up so that if cancel
is selected it exits the sub? Thanks in advance.

Neil Cash

 

[Geof Wyght]

Try:
Dim intResponse as Integer

If intResponse =Msgbox(Prompt:="...", buttons:=vbOkCancel)
=vbCancel Then
Exit Sub
End If

Geof.

 

[MikeB]

You need to use the MsgBox Function instead of the MsgBox dialog.

If MsgBox("SomeMsgBoxTEXT", vbYesNoCancel, "SomeCaptionTEXT") = vbCancel Then
Exit Sub
End If

 

[Guest]

Thanks a bunch!

You need to use the MsgBox Function instead of the MsgBox dialog.

If MsgBox("SomeMsgBoxTEXT", vbYesNoCancel, "SomeCaptionTEXT") = vbCancel Then
Exit Sub
End If