Cancel Button on Userform

[KJ Dahl]

Hi everyone.
I am trying to put together an application that formats and calculates raw
data in a spreadsheet.
I have created a Userform with a multipage control that loads in before all
the work on the data is performed, asking the user to confirm if it is the
right formatting and requests a couple of entries that I gather via Text
boxes that are needed for later comparison. Everything works fine except for
the Cancel-button.
I use the standard code in the userform-code-module:

Sub CancelButton_Click()
Unload Me
End Sub

The problem now is that the userform is unloaded, but the sub continues to
do all the formatting and calculations which I want to avoid. I would like
the sub to end completely if the user clicks the cancel button.
Any ideas or suggestions?

Thanks very much.

Knut Dahl

 

[Tom Ogilvy]

Publie bStop as Boolean

Sub Main()
Userform1.Show
if bStop then Exit sub
' other code
end Sub


Sub CancelButton_Click()
bStop = True
Unload Me
End Sub

 

[KJ Dahl]

Great stuff, thanks
You won't believe the stuff I tried and it turns out to be quite an easy
snippet of code.

Thanks again