My apologies. I should of explained what I was wanting to achieve much better than how I did.
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 & ", "
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 & ";"
I am wanting to bold whatever is inside the string "s". How can I do this? Also if you don't mind can you comment the working code given so I can learn from it please and thank you.