title: Excel VBA loop through listbox
body: <p>I have this code that I am using to search a range when I click the item in my listbox. I have never looped through a listbox and want to know how I add a loop to perform what I need without clicking each item in the listbox. Here is the code I am using:</p>
  
  <pre><code>Sub FindListValue()
  
  Dim FirstAddress As String
  Dim rSearch As Range  'range to search
  Dim c As Range
  
  With Sheets("PN-BINS")
      Set rSearch = .Range("B1", .Range("B65536").End(xlUp))
  End With
  
  Dim i As Long
  
  ' loop through all items in ListBox1
  For i = 0 To Me.ListBox1.ListCount - 1
  
      ' current string to search for
      strFind = Me.ListBox1.List(i)
  
      With rSearch
      Set c = .Find(strFind, LookIn:=xlValues, LookAt:=xlWhole)
      If Not c Is Nothing Then    'found it
      c.Select
      Me.ListBox1.AddItem strFind &amp; " | " &amp; c.Offset(0, -1).Value, Me.ListBox1.ListIndex + 1
      Me.ListBox1.RemoveItem (Me.ListBox1.ListIndex)
      'Exit Sub
  
      Else: 'MsgBox strFind &amp; " is not listed!"    'search failed
  
      End If
      End With
  
      ' the rest of your code logics goes here...
  Next i
  
  End Sub
  </code></pre>