Option Explicit
Private Sub CheckBox1_Click()
If Sheet1.CheckBox1 = True Then
Range("C4") = "Male"
Range("C7") = ""
Sheet1.CheckBox2 = False
End If
End Sub
Private Sub CheckBox2_Click()
If Sheet1.CheckBox2 = True Then
Sheet1.CheckBox1 = False
Range("C4") = ""
Range("C7") = "Female"
End If
End Sub