Write to cell if all OptionButtons are deselected

[erictaveren]

Hello,

I've got a command button on userform that is checking a lot of options with one click. One of the things I need it to check is if all the OptionButtons (6 of them) are deselected. If so, a cell needs to populate a value. If any are clicked, I need it to move on to the rest of its task. This is what I found online to help. Obviously I don't want to leave the sub if any are checked, that's one problem. My second problem is that whether or not something is checked my cell gets populated. Does anyone have a solution?

If OptionButton1.Value = Checked _
Or OptionButton2.Value = Checked _
Or OptionButton3.Value = Checked _
Or OptionButton4.Value = Checked _
Or OptionButton5.Value = Checked _
Or OptionButton6.Value = Checked Then
Exit Sub
Else: Sheets("Sheet2").Range("AC1") = "Denied for all retention workouts."
End If

 

[mikerickson]

If those option buttons are linked, the user can't uncheck all of them.

Also, the .Value of an Optionbutton is either True or False, not checked.

If OptionButton1.Value Or OptionButton2.Value Or OptionButton3.Value _
              Or OptionButton4.Value Or OptionButton5.Value Or OptionButton6.Value Then
    Exit Sub
Else
    Sheets("Sheet2").Range("AC1").Value = "Denied for all retention workouts"
End If