Define Range using xlUP

[ryancgarrett]

I'm trying to define the rowsource to populate a combobox on a form from a list in my workbook. However I can't manually input the range because the list is constantly being changed. Here is the code I am trying to use, which isn't working at all

Sub populateComboBox()
    frmTransactionEntry.cbxAccount1.RowSource = Sheets("Chart of Accounts").Range("B3:B" & .End(xlUp).Row)

End Sub

 

[Jonmo1]

Try

Sub populateComboBox()
Dim lr As Long
With Sheets("Chart of Accounts")
    lr = .Cells(Rows.Count, "B").End(xlup).Row
    frmTransactionEntry.cbxAccount1.RowSource = .Range("B3:B" & lr)
End With
End Sub

Hope that helps.

 

[ryancgarrett]

Ya that was perfect, thank you!