title: How to display Values from a multiselect listbox
body: <p>I have a form in Excel macro. This form will capture the values inserted in textboxes, listbox and store in Sheet2.</p>
  
  <p>There are 2 buttons in the form applet named "Next" and "Previous".  These button will be used for navigating between the saved records.  I am able to navigate between records and the values display fine in textboxes.  However, I am not sure how can I display the Values from listboxes.  My list box is a multiselect list box. </p>
  
  <p>I have provided snippet of my code on how the records are saved in sheet2 and how the navigation happens when clicked on Next button.  </p>
  
  <pre><code>     Private Sub Save_Click()
  
        Dim ctl As Control
        Dim S As String
        Dim i As Integer
  
  
        RowCount = Worksheets("Sheet2").Range("A1").CurrentRegion.Rows.Count
       With Worksheets("Sheet2").Range("A1")
      .Offset(RowCount, 0).Value = Me.Name1.Value  ' capture value from list box
  
       'below code is for capturing value from multiselect listbox 
       With AOI
        For i = 0 To .ListCount - 1
           If .Selected(i) = True Then S = S &amp; ", " &amp; .List(i)
       Next i
        Range("A1").Offset(RowCount, 10).Value = S
       End With
      End Sub
  </code></pre>
  
  <p>Below code is for navigating between saved records..  </p>
  
  <pre><code>   Private Sub Next1_Click()
  
        strCurrentSetofRows = Worksheets("Sheet2").Range("A1").CurrentRegion.Rows.Count
        i = i + 1: j = 0
  
        If i &gt; (strCurrentSetofRows - 1) Then
          MsgBox "No More Records"
        Exit Sub
        End If
  
        Set sRange = Worksheets("Sheet2").Range("A1")
  
        Name1.Text = sRange.Offset(i, j).Value: j = j + 1
     End Sub
  </code></pre>
  
  <p>Any thoughts on how can I display saved values of AOI (my field). </p>