Select all in Listbox

[Daniel]

Hello,

What code would I use in the Form Open Event to by default have all the
items in a list box selected?

Thanks,

Daniel

 

[Allen Browne]

Private Sub Form_Load()
Dim lng As Long

With Me.[NameOfYourListBoxHere]
For lng = 0 To .ListCount - 1
.Selected(lng) = True
Next
End With
End Sub

 

[Daniel]

Thank you so very much!

Private Sub Form_Load()
Dim lng As Long

With Me.[NameOfYourListBoxHere]
For lng = 0 To .ListCount - 1
.Selected(lng) = True
Next
End With
End Sub

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

Hello,

What code would I use in the Form Open Event to by default have all the
items in a list box selected?

Thanks,

Daniel