Basically in the ThisDocument module add code similar to this:
Code:
Private Sub OptionButton1_Click()
If OptionButton1 Then
CheckBox2 = True
CheckBox4 = True
CheckBox1 = False
CheckBox3 = False
End If
End Sub
Private Sub OptionButton2_Click()
If OptionButton2 Then
CheckBox2 = False
CheckBox4 = False
CheckBox1 = True
CheckBox3 = True
End If
End Sub