Neal,

Since you're Unloading the user form, its properties all get set
back to the default value, False in the case of bQuit. Instead of
using Unload Me, use Me.Hide.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Neal Steiner" wrote in message
...
Dear experts,

I have the following code with regards to a
userform. If the user does not enter a value, he is
prompted with a question "if he wants to quit?". If he
hits Yes, I want the True value to be passed to the
overall sub. I am always getting false. What am I doing
wrong. Any help would be greatly appreciated. Thanks.

Neal

These items are in the Sheet code:

Public bQuit As Boolean

Private Sub CommandButton2_Click()
bQuit = False 'initialize bQuit
UserForm2.Show
If bQuit Then
MsgBox "True"
'more code here
Exit Sub
Else
MsgBox "False"
'other code here
End If

End Sub


And this is in the UserForm code:

Private Sub OKButton_Click()
If TextBox2.Text = "" Then
If MsgBox("Do you want to quit?", vbYesNo) = vbYes Then
bQuit = True
Unload UserForm2
Else
MsgBox "Please fix the value in the box"
TextBox2.SetFocus
End If
Else
Unload UserForm2
End If
End Sub