Dim i As Long
Dim strTemp As String
Dim stopLoop as Boolean

stopLoop = False

Do
i = i+1
If Sheets("name").Range("A" & i) < "" Then
UserForm1.ComboBox1.AddItem Sheets("name").Range("A" & i)
Else
stopLoop = True
End if
Loop Until stopLooop

Uzytkownik "igor" napisal w wiadomosci
...
Hi,

guys i'm haveing a problem feeding a combobox off of a
spredsheet. i have a user form that contains a combo box.
i want it to be fed by items listed on sheet1 in cells a1
thru a10. Please help.

Thanks in advance.