Multiple checkboxes to populate single cell

Here is the updated code. You still start by double-clicking in column D, but you can change that as needed.

Private Sub CommandButtonSubmit_Click()

   Dim Ctrl As Control
   Dim PageNum As Long
   Dim ReportCell As Range
   
   Set ReportCell = ActiveCell
   
   
   For PageNum = 0 To 2
   
      ReportCell.ClearContents
      For Each Ctrl In Me.MultiPage1.Pages(PageNum).Controls
         If TypeName(Ctrl) = "CheckBox" Then
            If Ctrl.Value Then ' 10=line break, 149=bullet
               ReportCell = ReportCell & Chr(149) & " " & Ctrl.Caption & Chr(10)
            End If
         End If
      Next Ctrl
      Set ReportCell = ReportCell.Offset(0, 1)
      
   Next PageNum

   Unload Me

End Sub