How to create combo box on whole column fastly?

  • Thread starter Thread starter accessman2
  • Start date Start date
A

accessman2

Hi:

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

Please let me know, thanks.

Thanks.
 
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.
 
Back
Top