title: VBA Excel populate single cell with listbox items
body: <p>How can I pass all the items in a listbox to a single cell with comma delimiter in VBA?</p>
  
  <p>Here's my current code, where I pass each item to an array, then set the cell value to the array, but it doesn't work.</p>
  
  <pre><code>        Dim histReturn() As Long
          Dim j As Integer
          For j = 0 To Me.history_lbx.ListCount - 1
              ReDim Preserve histReturn(j)
          Dim x As Variant
          For Each x In histReturn
              Cells(i, 4).Value = Cells(i, 4).Value &amp; x &amp; ", "
          Next x
  </code></pre>