Deselecting ListBox items

[Reset]

I have a multiselect listbox. The macro runs based on selected items. When it is done, I want the choices deselected. Currently I run a loop to do it:

With ListBox1
     For i = 0 to .ListCount - 1
          .Selected(i) = False
     Next i
End With

Is there a cleaner way (one liner) to do this?

 

[Andrew Poulsom]

If the MultiSelect property is set to Multi or Extended try:

    With ListBox1
        .MultiSelect = 0
        .MultiSelect = 1 'Multi
    End With

Otherwise you can set its ListIndex property to -1.

 

[Reset]

Much nicer. Thanks!