title: VBa to add data in listbox multiple column
body: <p>I am getting an error as "Could not set list properly while filling data in list box. Please assist.</p>
  
  <pre><code>ListBox1.Clear
  
  Dim vertical As String
  lstRw = ThisWorkbook.Sheets(1).Range("A" &amp; Rows.Count).End(xlUp).Row
  
  Dim j As Integer
  j = 0
  
  For i = 2 To lstRw
  If ComboBox4.Value = ThisWorkbook.Sheets(1).Range("A" &amp; i).Value Then
  
  Me.ListBox1.AddItem ThisWorkbook.Sheets(1).Range("A" &amp; i).Value
  
  Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("B" &amp; i).Value
  Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("C" &amp; i).Value
  Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("D" &amp; i).Value
  Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("E" &amp; i).Value
  Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("F" &amp; i).Value
  Me.ListBox1.List(ListBox1.ListCount - 1, j) = ThisWorkbook.Sheets(1).Range("G" &amp; i).Value
  j = j + 1
  End If
  
  Next i
  </code></pre>