Hi,

I have a Procedure and a UserForm.
On the UserForm is the Button "Cancel".
When I click this button I would like to quit
the UserForm AND stop running the other procedure.

Sub test()
' Some Code
Call UserForm1
' Some more Code <-- Do not run when quit UserForm
End Sub

Unfortunately this doesn't work:

Private Sub cmbCancel_Click()
Unload Me
Exit Sub
End Sub

What can I do to really leave both?

Thank you for helping me.
Maria

Maria,

Try this

Private Sub cmdCancel_Click()
Unload Me
End
End Sub

--

HTH

RP

"Maria" wrote in message
...
Hi,

I have a Procedure and a UserForm.
On the UserForm is the Button "Cancel".
When I click this button I would like to quit
the UserForm AND stop running the other procedure.

Sub test()
' Some Code
Call UserForm1
' Some more Code <-- Do not run when quit UserForm
End Sub

Unfortunately this doesn't work:

Private Sub cmbCancel_Click()
Unload Me
Exit Sub
End Sub

What can I do to really leave both?

Thank you for helping me.
Maria

IS this also appropriate and is it equivalent


Me.HIDE
Set Userform1 = Nothing

Best N10


"Bob Phillips" wrote in message
...
Maria,

Try this

Private Sub cmdCancel_Click()
Unload Me
End
End Sub

--

HTH

RP

"Maria" wrote in message
...
Hi,

I have a Procedure and a UserForm.
On the UserForm is the Button "Cancel".
When I click this button I would like to quit
the UserForm AND stop running the other procedure.

Sub test()
' Some Code
Call UserForm1
' Some more Code <-- Do not run when quit UserForm
End Sub

Unfortunately this doesn't work:

Private Sub cmbCancel_Click()
Unload Me
Exit Sub
End Sub

What can I do to really leave both?

Thank you for helping me.
Maria

NO, the code in the calling procedure still continues after this executed.

--

HTH

RP

"N10" wrote in message
...
IS this also appropriate and is it equivalent


Me.HIDE
Set Userform1 = Nothing

Best N10


"Bob Phillips" wrote in message
...
Maria,

Try this

Private Sub cmdCancel_Click()
Unload Me
End
End Sub

--

HTH

RP

"Maria" wrote in message
...
Hi,

I have a Procedure and a UserForm.
On the UserForm is the Button "Cancel".
When I click this button I would like to quit
the UserForm AND stop running the other procedure.

Sub test()
' Some Code
Call UserForm1
' Some more Code <-- Do not run when quit UserForm
End Sub

Unfortunately this doesn't work:

Private Sub cmbCancel_Click()
Unload Me
Exit Sub
End Sub

What can I do to really leave both?

Thank you for helping me.
Maria

Thanks for the calrification Bob

Best N10

"Bob Phillips" wrote in message
...
NO, the code in the calling procedure still continues after this executed.

--

HTH

RP

"N10" wrote in message
...
IS this also appropriate and is it equivalent


Me.HIDE
Set Userform1 = Nothing

Best N10


"Bob Phillips" wrote in message
...
Maria,

Try this

Private Sub cmdCancel_Click()
Unload Me
End
End Sub

--

HTH

RP

"Maria" wrote in message
...
Hi,

I have a Procedure and a UserForm.
On the UserForm is the Button "Cancel".
When I click this button I would like to quit
the UserForm AND stop running the other procedure.

Sub test()
' Some Code
Call UserForm1
' Some more Code <-- Do not run when quit UserForm
End Sub

Unfortunately this doesn't work:

Private Sub cmbCancel_Click()
Unload Me
Exit Sub
End Sub

What can I do to really leave both?

Thank you for helping me.
Maria

Hi Bob,

that's it.

Thank you.
Maria

-----Original Message-----
Maria,

Try this

Private Sub cmdCancel_Click()
Unload Me
End
End Sub

--

HTH

RP

"Maria" wrote in
message
...
Hi,

I have a Procedure and a UserForm.
On the UserForm is the Button "Cancel".
When I click this button I would like to quit
the UserForm AND stop running the other procedure.

Sub test()
' Some Code
Call UserForm1
' Some more Code <-- Do not run when quit UserForm
End Sub

Unfortunately this doesn't work:

Private Sub cmbCancel_Click()
Unload Me
Exit Sub
End Sub

What can I do to really leave both?

Thank you for helping me.
Maria


.

I think I'd use a boolean variable and set/check that:

In a General module:

Dim OkToContinue as boolean
Sub test()
' Some Code
oktocontinue = true
Call UserForm1
if oktocontinue = false then
exit sub
end if
' Some more Code <-- Do not run when quit UserForm
End Sub

Unfortunately this doesn't work:

Private Sub cmbCancel_Click()
Unload Me
oktocontinue = false
Exit Sub
End Sub

The End statement may do more than what you want--if you use global variables,
you'll see that they've been reset.



Maria wrote:

Hi,

I have a Procedure and a UserForm.
On the UserForm is the Button "Cancel".
When I click this button I would like to quit
the UserForm AND stop running the other procedure.

Sub test()
' Some Code
Call UserForm1
' Some more Code <-- Do not run when quit UserForm
End Sub

Unfortunately this doesn't work:

Private Sub cmbCancel_Click()
Unload Me
Exit Sub
End Sub

What can I do to really leave both?

Thank you for helping me.
Maria

--

Dave Peterson