title: .Offset when copy the data to ListBox - Excel VBA
body: <p>I am able to copy cells value to multiple columns listbox1 using the code below. The problem is that it only works if and only if Sheet3 is active, otherwise, I have nothing in Listbox1.</p>
  
  <p>I tried <code>Range.cells(cell.offset...)</code> but it does not work either. Any help will be appreciated.</p>
  
  <pre><code>  With Me.ListBox1
  .Clear
  .ColumnCount = 6
  .ColumnWidths = "20;60;260;80;50;50"
  For Each cell In ActiveWorkbook.Sheets(Sheet3.Name).Range(Cells(13, cbPartList.ListIndex + 7), Cells(txIndex.text, cbPartList.ListIndex + 7))
      If cell = "O" Or cell = "o" Then
          .AddItem cell
          .List(.ListCount - 1, 1) = cell.Offset(0, 1)
          .List(.ListCount - 1, 2) = cell.Offset(0, 4)
          .List(.ListCount - 1, 3) = cell.Offset(0, 2)
          .List(.ListCount - 1, 4) = cell.Offset(0, 7)
          .List(.ListCount - 1, 5) = cell.Offset(0, 9)
      End If
  Next
  End With
  </code></pre>