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

--
Regards,
Tom Ogilvy


"KJ Dahl" wrote in message
...
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