combobox fill problem

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

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200512/1

Try:

Private Sub UserForm_Initialize()

cbo_accountnr.RowSource = "hulpblad!b2:c500"

End Sub

"Pierre via OfficeKB.com" wrote:

> 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
>
> --
> Message posted via OfficeKB.com
> http://www.officekb.com/Uwe/Forums.a...mming/200512/1
>