Set All Items in a Listbox to Selected

[ttt123]

Hello, when I have a listbox with MultiSelect, by default all of the entries are not selected. I can make them selected using the code below. The problem is that when I have 100,000 entries in the ListBox, this looping is extremely slow. Does anyone know if there is a way to do this that does not involve looping and just sets all entries to selected at once?

Thanks in Advance,
Taylour

Private Sub ListBoxSetAll(ByRef lb As MSForms.ListBox)
    Dim i As Long
    For i = 0 To lb.ListCount - 1
        lb.Selected(i) = True
    Next i
End Sub

 

[Norie]

Taylour

Pretty sure it's not possible without looping.

Why do you want to do it anyway?