title: Add multiple checkbox caption in List box in User Form
body: <p><a href="https://i.stack.imgur.com/wwLbZ.png" rel="nofollow noreferrer">enter image description here</a></p>
  <p>Many thanks for your reply, Please find attached a picture of the user form I Got the data in the list box by some other ways no I am facing an issue to update and edit the data. I am trying to call the data from Listbox to textbox and checkboxes by below code for Editing.</p>
  <pre><code>Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'UPDATE LISBOX DATA
  Dim p As Integer
  
  Me.ComboBoxitem.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
  
  For p = 0 To Me.ListBox1.ListCount &lt; 1
        
  Me.CheckBoxSmall.Value = Me.ListBox1.List(p, 3)
  Me.CheckBoxMedium.Value = Me.ListBox1.List(p, 3)
  Me.CheckBoxLarge.Value = Me.ListBox1.List(p, 3)
  Me.CheckBoXL.Value = Me.ListBox1.List(p, 3)
  Me.CheckBoXXL.Value = Me.ListBox1.List(p, 3)
  Me.CheckBoXXXL.Value = Me.ListBox1.List(p, 3)
  
  Me.txtsmallqty.Value = Me.ListBox1.List(p, 4)
  Me.TextBoxmedium.Value = Me.ListBox1.List(p, 4)
  Me.TextBoxlarge.Value = Me.ListBox1.List(p, 4)
  Me.TextBoXL.Value = Me.ListBox1.List(p, 4)
  Me.TextBoxxL.Value = Me.ListBox1.List(p, 4)
  Me.TextBoxxxL.Value = Me.ListBox1.List(p, 4)
  
  Next
  Me.TextBox1.Value = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
  
  End Sub
  </code></pre>
  <p>and for  update the data in excel sheet after editing ,  I am using below code :</p>
  <pre><code>Private Sub CommandButton1_Click() ' Update Data
  Dim L As Long
  Dim th As Worksheet
  Set th = ThisWorkbook.Sheets(&quot;Data&quot;)
  L = Application.WorksheetFunction.Match(CLng(Me.TextBox1.Value), th.Range(&quot;A1:A1000&quot;), 0)
  
  th.Range(&quot;B&quot; &amp; L) = Me.ComboBoxitem.Value
  th.Range(&quot;D&quot; &amp; L) = Me.CheckBoxSmall.Value
  th.Range(&quot;D&quot; &amp; L) = Me.CheckBoxMedium.Value
  th.Range(&quot;D&quot; &amp; L).Value = Me.CheckBoxLarge.Value
  th.Range(&quot;D&quot; &amp; L).Value = Me.CheckBoXL.Value
  th.Range(&quot;D&quot; &amp; L).Value = Me.CheckBoXXL.Value
  th.Range(&quot;D&quot; &amp; L).Value = Me.CheckBoXXXL.Value
  
  th.Range(&quot;E&quot; &amp; L) = Me.txtsmallqty.Value
  th.Range(&quot;E&quot; &amp; L) = Me.TextBoxmedium.Value
  th.Range(&quot;E&quot; &amp; L) = Me.TextBoxlarge.Value
  th.Range(&quot;E&quot; &amp; L) = Me.TextBoXL.Value
  th.Range(&quot;E&quot; &amp; L) = Me.TextBoxxL.Value
  th.Range(&quot;E&quot; &amp; L) = Me.TextBoxxxL.Value
       
  Me.CheckBoxSmall.Value = False
  Me.CheckBoxMedium.Value = False
  Me.CheckBoxLarge.Value = False
  Me.CheckBoXL.Value = False
  
  Me.CheckBoXXL.Value = False
  Me.CheckBoXXXL.Value = False
  Me.txtsmallqty.Value = &quot;&quot;
  Me.TextBoxmedium.Value = &quot;&quot;
  Me.TextBoxlarge.Value = &quot;&quot;
  Me.TextBoXL.Value = &quot;&quot;
  Me.TextBoxxL.Value = &quot;&quot;
  Me.TextBoxxxL.Value = &quot;&quot;
  Me.TextBox1.Value = &quot;&quot;
  
  End Sub
  </code></pre>
  <p><em>Addition due to comment:</em></p>
  <blockquote>
  <p>&quot;I am trying to pull Listbox data in 6 checkboxes and 6 text boxes from the first code mention above, the Issue I am facing from this code, shows only data from the first line of Listbox to all text boxes and checkboxes.<br />
  By the mean of the second code I have to update data in excel sheet.&quot;</p>
  </blockquote>
  <p>But I am not able to get the perfect result, you are requested to please review the above Code and let me know where I am Mistaking.</p>
  <p>Your Kind Response will be Highly Appreciated.</p>