Dim ctrl As MSForms.Control, cf As MSForms.Control
Dim s As String
For Each ctrl In Me.Controls
s = ""
If TypeName(ctrl) = "Frame" Then
For Each cf In ctrl.Controls
If "CheckBoxOptionButton" Like "*" & TypeName(cf) & "*" Then If cf.Value Then s = s & cf.Caption & ", "
Next
Select Case ctrl.Name
Case Is = "frmTask"
If s <> "" Then MsgBox Left(s, Len(s) - 2) & " with " & frmSelectedItem & ";", vbInformation, ctrl.Name
If s <> "" Then Cells(lLastRow, "I") = s & "with " & frmSelectedItem & ";"
End Select
End If
Next