Initialize event to populate two Comboboxes?

Hi, i have the following code that populates one Combobox which is fine. However, i seem to be unable to populate a second combobox (Combobox2) that pulls its values form range B. Couls somebody help to amend? Thank you very much!

Sub UserForm_Initialize()
Dim lstRng As Range
    Set lstRng = Sheet1.Range("A2:J2", Range("A65536").End(xlUp))
    Me.Combobox1.RowSource = lstRng.Address
End Sub

Can you not set a 2ndRng and do the same thing as you did for combobox1?

Hello fcb1900,

If the values are all in column "B" of "Sheet1" then this will work.

Sub UserForm_Initialize()
Dim lstRng As Range
    Set lstRng = Sheet1.Range("A2:J2", Range("A65536").End(xlUp))
    Me.Combobox1.RowSource = lstRng.Address

    Set lstRng = Sheet1.Range("B2:B" & Sheet1.Cells(Rows.Count, "B").End(xlUp).Row)
    ComboBox2.RowSource = lstRng.Address
End Sub

Sub UserForm_Initialize()
  Combobox1.List= Sheet1.Range("A2:J2").Resize(Sheet1.cells(.rows.count,1).end(xlup).row-1).value
  Combobox2.list=combobox1.List
End Sub