VBA ComboBox

[george hart]

Hi can anyone advise why this works ok using a listBox but falls over when I change to a ComboBox?

It falls over here "If ComboBox1.Selected(i) Then"


Private Sub OKButton_Click()
Dim Msg As String
Dim i As Integer
For i = 0 To ComboBox1.ListCount - 1
If ComboBox1.Selected(i) Then

Range("A1").Value = ComboBox1.List(i)

End If
Next i
Unload UserForm1
End Sub

 

[Weaver]

I think it's because you can't have multiple selections in a combo box.

Have you tried testing the .value of the combobox in question?

 

[george hart]

Got it. Many thanks...