Check if any option in listbox checked

Hi please help!

I have userform and muilti-choise listbox in it. At the beginning some option in this listbox is always chosen, but at the end these chance that no options were chosen. How to check that listbox is clear in this case??? listindex won't be -1.

thanks in advance!!

Beleive it works! thanks!

You misstyped:

Dim arrSelected() As Variant
Dim idx As Long
Dim I As Long

    idx=0
    For I = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(I) Then
            ReDim Preserve arrSelected(idx)
            arrSelected(idx) = ListBox1.List(idx)
            idx = idx + 1
        End If
    Next I

    If idx > 0 Then
        MsgBox "Selected: " & Join(arrSelected, ", ")
    Else
        MsgBox "No selection."
    End If

i bet you did ) with I>0 . try on listbox - choose something and then uncheck all. Then run this macro (with I>0). You'll see