Private Sub UserForm_Initialize()
Dim i As Integer

For i = 1 To 5
ComboBox1.AddItem Cells(i, 1).Value
ComboBox1.AddItem Cells(i, 2).Value
Next
End Sub


Rob


"alfaboost " wrote in message
...
Thank's for david, but i still got the problem.
I have data like this:

Col A Col B
1 10 11
2 12 13
3 14 15
4 16 17
5 18 19

I like those data shows in combobox item like this :

10
11
12
13
14
15
16
17
18
19

So, if i want those data shows as item in combobox from the control box
menu, what should i do? I' ve try this :

Private Sub ComboBox1_Change()
ComboBox1.AddItem Range("a1: b5")
End Sub

But why it still doesn't work? am i made mistake or there's something
that i don't know? please give me advise...Thank's


---
Message posted from http://www.ExcelForum.com/