title: Code Skipping Second Cell, Not Supposed To
body: <p>This code is a part of bigger code that takes words from a listbox and places into another listbox, which with this code separates the words in the listbox and establishes into words that are able to be inserted into a cell, for some reason second <code>strsplt</code> is not showing, everything else is working very well, it's just this one, I need help with and there is no error that is thrown out. I've looked it over with F8 and breakpoints and the problem seems to be with </p>
  
  <pre><code>If ii &lt; .ColumnCount - 1 Then
      str = str &amp; .List(i, ii) &amp; vbCrLf
  Else
      str = str &amp; .List(i, ii)
  End If
  </code></pre>
  
  <p>The Whole Code: </p>
  
  <pre><code>With Me.selecteditems
      ThisWorkbook.Sheets(9).Range("A:B").ClearContents
      For i = 0 To .ListCount - 1
          If .Selected(i) Then
              found = True
              For ii = 0 To .ColumnCount - 1
              ReDim strsplt(0 To i)
                  If str = "" Then
                      str = .List(i, ii) &amp; vbCrLf
                  Else
                      If ii &lt; .ColumnCount - 1 Then
                          str = str &amp; .List(i, ii) &amp; vbCrLf
                      Else
                          str = str &amp; .List(i, ii)
                      End If
                  End If
              Next ii
              message = "How much" &amp; vbCrLf &amp; str &amp; "?" &amp; vbCrLf
              title = "Amount"
              defaultval = "1"
              quantity = InputBox(message, title, defaultval)
              strsplt = Split(str, "*")
          End If
          'On Error Resume Next
          With ThisWorkbook.Sheets(9)
              .Range("A" &amp; (i + 1)).Value = strsplt(i)
              .Range("B" &amp; (i + 1)).Value = quantity
          End With
          'On Error GoTo 0
      Next i
  End With  
  </code></pre>
  
  <p>EDIT: The way it looks like using <code>debug.print str</code></p>
  
  <ol>
  <li>item1  </li>
  <li>item2 item3 item4 ...</li>
  </ol>