Runtime Error 424: Object Required - help with starting User Form

[BLyons14]

Every time I try to run this application that I created, I am getting this error. I am VERY new to VBA (as in...I began using it yesterday) so I really don't have any idea what I'm doing. I copied a basic format that I found online and tailored it to my needs.

I am trying to start a userform that, after the user populates and hits submit, will automatically fill in on another worksheet. The problem is that when I hit the "start" button (which should start the app), it comes up with this error.

This is the code I have for the "start" command button:

Sub CommandButton1_Click()


CoaterUserForm.Show


End Sub


When I hit debug, the "CoaterUserForm.Show" line is highlighted and an arrow pointing at it.

Again, please bear with me because I am very new. Please explain everything you can in simple terms! This may be a simple, obvious fix - but I can't figure it out.

Thanks!

 

[RoryA]

First, are you certain that that is the correct name of your form? If so, when the error arises, click debug, then press f8 to step into the actual userform code and see which line is really causing the error - probably in the Initialize or Activate events of the form.

 

[BLyons14]

That is the name on the left side list when I'm in VBA and in the "Name" section of the properties list. I think it is the correct name.

When I press F8, that same line is highlighted in yellow AND red and there is a little red dot on the left.

 

[Norie]

Do you have any code in the userform's Initialize or Activate events?

 

[BLyons14]

This is the code for the UserForm Initialize event:

Private Sub UserForm_Initialize()
'Empty NameBox
NameBox.Value = ""


'Empty DateBox
DateBox.Value = ""


'Empty BatchBox
BatchBox.Value = ""




'Empty LinearMeterBox
LinearMeterBox.Value = ""


'Empty LineSpeedBox
LineSpeedBox.Value = ""


'Empty OrderBox
OrderBox.Value = ""


'Empty OrderYardsBox
OrderYardsBox.Value = ""


'Empty RollBox
RollBox.Value = ""


'Empty SquareMeterBox
SquareMeterBox.Value = ""


'Empty WidthBox
WidthBox.Value = ""


'Empty ActivityList
ActivityList.Clear


'Fill ActivityList
With ActivityList
    .AddItem "Operations"
End With


'Empty ProductList
ProductList.Clear


'Fill ProductList
With ProductList
    .AddItem "Products"
End With
        
'Set partial order as default
OptionButton1.Value = True


End Sub

 

[Norie]

That code looks fine.

You might want to have a look here Office Update breaks ActiveX controls | Excel Matters.

 

[BLyons14]

I actually figured it out just now. I looked back at another bunch of code and saw that I have a line in there that wasn't necessary. Now, the user form loads, but I get an error after I hit submit. It says:

Compile Error:
End If without block If

Can I just get an explanation on what this means? I can try to troubleshoot it myself but I don't quite understand what it's telling me.

 

[RoryA]

The red highlight and dot is a breakpoint - you can click the red dot to clear it again.

In the VB Editor, click Tools - Options, switch to the General tab and alter the Error Trapping options to 'Break in class module' then click your startup button again.

Your error usually means that you have an If clause where the Then clause appears on the same line, in which case you don't use an End If. In other words you have something like:

If something then do something
end if

but it should either be just:

If something then do something

or:

If something then 
do something
End If

 

[Norie]

Can you post the code for the submit button?

 

[BLyons14]

RoryA, thanks for the explanation. I took out the End If and that error code went away.
Thanks again for the help. Like I said, most of this is probably obvious to seasoned veterans but it's a huge mystery to me