End a procedure from a UserForm

[Sam]

I use a MsgBox with vbYesNoCancel to end a procedure if the No button is
clicked. However, the end users don't take the time to read the message and
just click Yes to get past it.

I want to use a LARGE UserForm with Yes & No command buttons to accomplish
the same thing. If the end user clicks Yes, the UserForm will unload and the
procedure will continue. What code can I put into the No command button to
end the procedure that launched the UserForm when the No button is clicked?

Thanks,

Sam

 

[Tim Zych]

For a userform, you could use a global boolean variable like bContinue, e.g.

' In a regular module:

Public bContinue As Boolean

Sub Test()

UserForm1.Show

If bContinue Then
MsgBox "Clicked Yes"
Else
MsgBox "Clicked No"
' The other procedure looks at
' bContinue to decide what to do
End If

End Sub

' In the userform:

Private Sub cmdNo_Click()
bContinue = False
Unload Me
End Sub


One other possibility if you want to try to get more out of the message box
dialog is to use the exclamation:

If MsgBox("Some message", vbYesNoCancel + vbExclamation) = vbNo Then

End If

--
Regards,
Tim Zych
http://www.higherdata.com
Workbook Compare - Excel data comparison utility

http://www.higherdata.com/sql/batchsqlfromexcel.html
Create batch SQL from Excel