combobox fill problem

[Pierre via OfficeKB.com]

Hi experts,
i have the following code to fill a combobox

Private Sub UserForm_Initialize()
With Sheets("hulpblad")
cbo_accountnr.RowSource = "b2:c500"
End With
End Sub

This works fine but the userform on which the combo is, is used on sheet 1
where the combobox should be filled with items on sheet("hulpblad")
In my code the With sheets("hulpblad") does not work when i call the userform
in sheet1.
I get the list"b2"c500" from sheet1 istead of the list from sheet("hulpblad")
Can anyone help me please ?
Thanks,
Pierre

 

[Guest]

Try:

Private Sub UserForm_Initialize()

cbo_accountnr.RowSource = "hulpblad!b2:c500"

End Sub