ActiveX Option Buttons

[raccoon588]

I have several groupings of option buttons. Then i have a button that saves a copy of the excel forum to another location. Is there a way to insure that all groups have 1 option selected before allowing the user to save the copy?

Sub CommandButton1_Click()
ActiveSheet.Unprotect
Dim nom As String
Dim path As String
If Range("H48") = "" Then
MsgBox ("You Missed Something"), 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