Private Sub CommandButton1_Click() Dim i As Long ComboBox1.Clear For i = 1 To 10 ComboBox1.AddItem Sheets("Sheet2").Range("A" & i).Value Next End Sub
Select allOpen in new window
Private Sub CommandButton1_Click() ComboBox1.Clear ComboBox1.List = Sheets("Sheet2").Range("A1:A10").Value End Sub
Open in new window
Or, you can use another method, one I prefer, to enter the data all at once instead of looping (I hate looping)...Open in new window
HTH