Get the selected items in a ListBox : ListBox « Forms « VBA / Excel / Access / Word

Get the selected items in a ListBox

  Private Sub OKButton_Click()
      Dim Msg As String
      Dim i As Integer
      Msg = "You selected" & vbNewLine
      For i = 0 To ListBox1.ListCount - 1
          If ListBox1.Selected(i) Then
              Msg = Msg & ListBox1.List(i) & vbNewLine
          End If
      Next i
      MsgBox Msg
      Unload UserForm1
  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.Get all selected items in a list box
8.Evaluating Which Items Are Selected in the Multiselect List Box
9.Determining the selected item
10.Get selected from ListBox