Cancel does not work in a sub - Can sb help please?

[Ritzl]

Hi all,
I have a small user form which shoes a countdown in seconds, then it closes and goes back to the main Routine and executes some staff (this repeates several times). Now my propblem, I have a cancel button on the form but I can not press it, resp. nothing happens, any idea why. I want to achieve that the cancel button aborts the countdown, closes the user form and goes back to the main program:

Private Sub CancelBtn_Click()
                                                    '  MsgBox ("Exit procedure cancel Btn....")
        CancelBtn = True
        Me.Hide
End Sub


Private Sub UserForm_Activate()
  For iz = 1 To interval
    Label2.Caption = interval - iz
     If WaitingTime.CancelBtn Then                   ' MsgBox ("Exit procedure....")
         iz = interval - iz
         Unload Me
     End If
     Application.Wait (Now + #12:00:01 AM#)
     WaitingTime.Repaint
  Next iz
    Unload Me
End Sub

Thank you very much for your help ! Cheers Marc

 

[RoryA]

Are you sure the name of the button is correct? Also, why are you setting the value of the button to True in it's click event? You shouldn't do that.

 

[Ritzl]

Hi Thx for answering
Yes, the Name in the properties is CancelBtn

The Problem is, that if im press the CommandButton (Cancel), nothing happens. I tried with a msgBox but it was never showed so it seems the button is not active. Any ideas why that could be?
(I put the msg box as comment so you can see where it was)
Thx Marc

 

[RoryA]

Either that isn't the correct name or the code is not rated by the user form code module.

 

[Ritzl]

Either that isn't the correct name or the code is not rated by the user form code module.

Is the a way to send you a print screen about the properties or the whole code? What do you mean by" the code is not rated by the user form..." anything I can do?
my email: ritzl@hispeed.ch

 

[RoryA]

Sorry that was phone autocorrect. I meant the code is not contained in the user form code module.

 

[Ritzl]

Hi Rory, sorry was a few days away....I am new to VBA and do not understand what to do. Would you be so kind to show my step by step what I need to do ? would you mind if I email you my file...this might be easier. (I stated my email above in an earlier thread). thx in advance...kind regards Marc