Get all selected items in a list box : ListBox « Forms « VBA / Excel / Access / Word

Get all selected items in a list box


Private Sub OKButton_Click()
    If ListBox1.ListIndex = -1 Then
        msg = "Nothing"
        msg = ""
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) Then _
              msg = msg & ListBox1.List(i) & vbCrLf
        Next i
    End If
    MsgBox "You selected: " & vbCrLf & msg
    Unload Me
End Sub


Related examples in the same category

1.Add item to List Box
2.Add names of all open workbooks to the list box
3.Add items to ListBox
4.Assign the data in a worksheet to RowSource of a ListBox
5.Make sure the RowSource property is empty
6.Select the items programmatically
7.Evaluating Which Items Are Selected in the Multiselect List Box
8.Determining the selected item
9.Get selected from ListBox
10.Get the selected items in a ListBox