Have a called function stop the originial function

[ilya2004]

I have a function which at one step calls a userform. I want to set it up such that if the person hits cancel in the userform, it will close the form and stop the original function which called it as well. What would be the code for the second of those?

 

[RoryA]

Add a public boolean variable to your form called Cancelled (or better still a Property procedure) that gets set to true if the form is cancelled (and make sure the form gets hidden, not unloaded. The calling routine can then check the value of Cancelled and exit if appropriate.

 

[ilya2004]

I tried to use the public variable, but for some reason it is not passing it from the form to the original routeen that called it, so it keeps on running.

 

[RoryA]

Did you ensure the form gets hidden and not unloaded?

 

[Andrew Poulsom]

Example:

'General module
 
Function Test()
    With UserForm1
        .Show
        If .Cancelled Then
            MsgBox "Cancelled"
            Unload UserForm1
            Exit Function
        Else
            MsgBox "Not Cancelled"
        End If
    End With
End Function
 
'UserForm module
 
Public Cancelled As Boolean
 
Private Sub cmdCancel_Click()
    Cancelled = True
    Me.Hide
End Sub

 

[ilya2004]

I got it to work, thanks for your help guys.