ComboBox Populate

[wtom0412]

Hi All,

I am using the following code to populate two ComboBoxs in my Userform (called WSSearch).

Private Sub UserForm_Initialize()

    Me.ComboBox1.List = Sheets("Wholesale Members").Range("A2", Range("A" & Rows.Count).End(xlUp)).Value
    Me.ComboBox2.List = Sheets("Wholesale Members").Range("B2", Range("B" & Rows.Count).End(xlUp)).Value

End Sub

When I run this Userform, I get a "Run-time error '1004': Application-defined or object-defined error"

I am stuck, can anyone please help?

Cheers, WT

 

[Akuini]

You need to put "Sheets("Wholesale Members")." in front of each "Range", and it's better to use "With - End With"

Private Sub UserForm_Initialize()
With Sheets("Wholesale Members")
    Me.ComboBox1.List = .Range("A2", .Range("A" & Rows.Count).End(xlUp)).Value
    Me.ComboBox2.List = .Range("B2", .Range("B" & Rows.Count).End(xlUp)).Value
End With
End Sub

 

[wtom0412]

Thank you Akuini, perfect!!

 

[Akuini]

You're welcome & thanks for replying