Here is a fastly code:

Dim ListItems As Variant
Dim i As Integer

ListItems = Range("A1:A1000").Value
ListItems = Application.WorksheetFunction.Transpose(ListItems)

With CB1 'CB1 Stands for ComboBox1
For i = 1 To UBound(ListItems)
.AddItem ListItems(i) ' populate the listbox
Next i
End With

Hope it helps.

"accessman2" wrote:


Hi:

How can I create combo box on one whole column fastly?

Please let me know, thanks.

Thanks.


--
accessman2
------------------------------------------------------------------------
accessman2's Profile: http://www.excelforum.com/member.php...o&userid=27953
View this thread: http://www.excelforum.com/showthread...hreadid=474563