Ability to force a user to check off all groups of option buttons

[raccoon588]

I have a form with several groupings of option buttons. Is it possible to force a user to ensure all groups have at least one option selected before moving forward with the save copy button? Here is my current code. As you can see i do have the requirement for them to fill in a specific cell. Now i just need to also require all option groups have at least one selection filled in.

 Sub CommandButton1_Click()
ActiveSheet.Unprotect
Dim nom As String
Dim path As String
If Range("H48") = "" Then
MsgBox ("You Messed Up"), ActiveSheet.Protect, exitsub
Else
    path = "\\hinas1\MFG\S8WData\Christine Myhaver\Training"
    nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "(" & Hour(Time) & "-" & Minute(Time) & ")-" & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs path & "\" & nom
    rep = MsgBox("Submited")
    
     ActiveSheet.CheckBoxes.Value = False
     Range("H48,G39,H39,G42,H42,G43,H43,G44,H44,G45,H45").ClearContents
     ActiveSheet.Protect
     Application.DisplayAlerts = False
     Application.Quit
   End If
End Sub

 

[Domenic]

Since only one option button can be selected from any one group, simply loop through all option buttons, and count the number of option buttons that have been selected. If that count equals the number of groups that you have, then you'll know that a selection has been made from each group.