Userform loop

[tiredofit]

I am trying to build my own countdown timer, using a userform counting down with a Wait function.

It doesn't work but what puzzles me most is it crashes.

This is in Moduel1:

Option Explicit


Sub Start()


    UserForm1.Show
    
End Sub


Sub Timer()


    Dim i As Integer
    
    For i = 5 To 1 Step -1
    
        UserForm1.Label1.Caption = i
        
        Application.Wait (Now + TimeValue("0:00:01"))
        
    Next i
    
    Unload UserForm1
    
End Sub

This is in Userfrom1:

Private Sub UserForm_Initialize()

    Call Module1.Timer


End Sub

The code runs to the end of the Sub Timer, then goes back to the Sub Start and crashes on this line:

UserForm1.Show

​

with the message:

Object variable or With block variable not set

What is wrong?

Thanks

​

 

[NdNoviceHlp]

You are unloading the userform from the initialize event (indirectly from the sub)... I don't think this is possible. Trial creating a userform and placing unload userform in the initialize event... I get the same error. HTH. Dave