User Form Initialize Error

[BDubbs]

Hello,
I have an Excel workbook with two different user forms. I want to use an Initialize event to populate some combo boxes. On the first user form, everything works great. When I try to use the second one, I get "Run-Time Error 424 Object Required". The debugger highlights the line in the code that calls the user form. I have a feeling the error is somewhere in the Initialize code, because if I remove the initialize code, the user form runs fine.

The code for both forms is almost identical. Only the names are changing. Please help.

Private Sub UserForm_Initialize()
    cmbPartnum.SetFocus
    cmbPartnum.List = Array("24921", "24343", "24354", "25925", "11913", "11914-001", "21992-001", "15695", "16550", "50885")
    cbmOperator.List = Array("AP", "FN", "LM", "MW", "RB", "JC", "MM")
    cmbLaser.List = Array("EGYNGR")
End Sub

Sub Button2_Click()
    ufLaserEntry.Show
End Sub

 

[Norie]

Have you tried stepping through the code in the Initialize event?

You can do that by simply placing the cursor anywhere in that sub and pressing F8.

 

[mikerickson]

If the control names are the same on each form, using the Me keyword to both code modules would help Excel keep things sorted

Private Sub UserForm_Initialize()
    With Me
        .cmbPartnum.SetFocus
        .cmbPartnum.List = Array("24921", "24343", "24354", "25925", "11913", "11914-001", "21992-001", "15695", "16550", "50885")
        .cbmOperator.List = Array("AP", "FN", "LM", "MW", "RB", "JC", "MM")
        .cmbLaser.List = Array("EGYNGR")
    End With
End Sub

 

[BDubbs]

The error occurs after the "cmbOperator.List"

 

[BDubbs]

Mike,

I added the with me keyword and nothing changed. Then I added the periods and i got "Compile Error - Method or Data Member not found" and the "Private Sub UserForm_Initialize()" line got highlighted.

 

[GTO]

Hello,

Private Sub UserForm_Initialize()
    cmbPartnum.SetFocus
    cmbPartnum.List = Array("24921", "24343", "24354", "25925", "11913", "11914-001", "21992-001", "15695", "16550", "50885")
    cbmOperator.List = Array("AP", "FN", "LM", "MW", "RB", "JC", "MM")
    cmbLaser.List = Array("EGYNGR")
End Sub

Are you sure that's not just a misspell in the prefix?

 

[BDubbs]

That's was it! Thank you all! I went over that code 100 times and didn't see the spelling error.

 

[GTO]

Glad it was an easy fix