You can copy this event in the Userform mudule to fill your listbox

Private Sub UserForm_Initialize()
ListBox1.List = Sheets("Sheet1").Range("d4:d33").Value
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"P Dudesek" wrote in message ...
Here is what I am trying to do.

I have a worksheet named Vendor List

Cells D4 to D33 contain the data

Now I want to create a userform (i know how to do that)
with a
list box (know how to do that) but what I can not figure
out
is how to get that D4 to D33 data into the listbox for the
user to select. Valadation is no good in this instance
because
I want to be able to insert the users selection in
different
worksheets.

Thanks