Data Entry Form with Multiple Checkboxes

I'm creating an Excel Data Entry form with checkboxes and I would like to allow the user to select multiple checkboxes so the Excel cell reads "Multivitamin, Vitamin D, etc." instead of just "Multivitamin"

Here's the code that is currently only adding the information from the first selected checkbox instead of multiple selected checkboxes

'Adding Vitamins Info
    Dim vitaminList As Object
    Set vitaminList = CreateObject("System.Collections.ArrayList")
    
    ' Add items
    If OptionMulti Then
    vitaminList.Add "Multivitamin"
    End If
    If OptionVitaminD Then
    vitaminList.Add "Vitamin D"
    End If

     ' Copy to array
    Dim vitArray As Variant
    vitArray = vitaminList.toArray
    
    ' Write to a cell
    Cells(emptyRow, 8) = vitArray

Sample Excel worksheet:
Worksheet.jpg

User form:
UserFormScreenshot.jpg

Hi GraceAnna,

I'm not sure if this is the answer maybe you need to make a true/false statement when checkbox is checked off.

https://analysistabs.com/vba-code/ex...form/checkbox/


So I think you may need to modify your code:

'Adding Vitamins Info
    Dim vitaminList As Object
    Set vitaminList = CreateObject("System.Collections.ArrayList")
    
    ' Add items
    If OptionMulti.value = TRUE Then
    vitaminList.Add "Multivitamin"
    End If
    If OptionVitaminD.value = TRUE Then
    vitaminList.Add "Vitamin D"
    End If

     ' Copy to array
    Dim vitArray As Variant
    vitArray = vitaminList.toArray
    
    ' Write to a cell
    Cells(emptyRow, 8) = vitArray

Hope this helps.

Thank you! Now it's working

'Adding Vitamins Info
    Dim vitaminList As Object
    Set vitaminList = CreateObject("System.Collections.ArrayList")
    
    ' Add items
    If OptionMulti = True Then vitaminList.Add "Multivitamin"
    If OptionVitaminD = True Then vitaminList.Add "Vitamin D"

     ' Copy to array
    Dim vitArray As Variant
    vitArray = vitaminList.toArray
    
    ' Write to a cell
    Cells(emptyRow, 8).Value = Join(vitArray, ", ")