Closing UserForm with Cancel commandButton

[supersnoop]

My form has multiple text boxes and a combolist. Two buttons on the bottom, one for adding info into the spreadsheet, one for cancelling. When I click the cancel button, I get a 'Runtime error 91': Object variable or With block variable not set.

My code is below. What am I doing wrong?

Private Sub cancelBtn_Click()


Unload UserForm1


End Sub


Private Sub UserForm_Initialize()


For Each ctrl In Me.Controls


Select Case TypeName(ctrl)
Case "TextBox"
ctrl.Text = ""
Case "ComboBox"
ctrl.ListIndex = -1
End Select


Next


UserForm1.Show


End Sub

 

[Fluff]

If all that code is in Userform1 then remove this line from the intialize event

   UserForm1.Show

 

[supersnoop]

Boy, I feel pretty stupid right about now. Thank you, that worked!

If all that code is in Userform1 then remove this line from the intialize event

   UserForm1.Show

 

[Fluff]

You're welcome & thanks for the feedback