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
Bookmarks