Listbox multi select issue

Can anyone tell me how why the below doesnt work?

I want to display a message if my user selects more than one item from a userform listbox, I assume its because i ve put it into a loop and need to count items first? but not sure how to

Code:

---

For i = 0 To ListBox1.ListCount - 1
If i <> 1 then
msgbox " Please select one item only"
Exit sub
End if
If ListBox1.Selected(i) Then
        MsgBox ListBox1.List(i, 0) & " is selected"
    End If
Next

---

.ListCount gives the number of items in the Listbox regardless of whether they are selected.

Before going further, wouldn't it be easier just to set ListBox1.MultiSelect = False so that only one item can be selected at any time?

(Then ListBox1.ListIndex will give you the index of the selected item from 0 to Listbox1.ListCount -1. I *think* that .ListIndex is set to -1 if nothing is selected.)

i cant do that unfortunately as i need my users to be able to multi select for another use from the same data in the list box

Fair enough, then try something like:

Code:

---

total = 0
For i = 0 to ListBox1.ListCount - 1
If ListBox1.Selected(i) Then total = total + 1
Next i
If total = 0 then
MsgBox "Nothing Selected"
ElseIf total > 1 then
MsgBox "More than 1 Selected"
End If

---

That worked as required

Thanks Gibbo