OptionButtons being treated as CheckBoxes in If statement??

[sramsay]

Basically, I have a little loop, that that sets all CheckBoxes to true or False based on the value of an OptionButton.

Works great except that it also meets the IF condition for the option buttons, even though I specifically wrote that I want CheckBox Values to change.

Am I missing anything obvious?

Dim ctrl As MSForms.Control

If Me.OptionButton1.value = True Then
    For Each ctrl In UserForm6.Controls
        If TypeOf ctrl Is MSForms.CheckBox Then
            ctrl.value = False
        End If
    Next ctrl
    Exit Sub
ElseIf Me.OptionButton2.value = True Then
    For Each ctrl In UserForm6.Controls
        If TypeOf ctrl Is MSForms.CheckBox Then
            ctrl.value = True
        End If
    Next ctrl
End If

 

[MickG]

I don't know why it fails ,but Try:-

 If TypeName(ctrl) = "CheckBox" Then

 

[Fluff]

How about

If Me.OptionButton1.Value = True Then
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "CheckBox" Then ctrl.Value = False
    Next ctrl
    Exit Sub
ElseIf Me.OptionButton2.Value = True Then

 

[Fluff]

Alternatively, how about

   Dim ctrl As MSForms.Control
   For Each ctrl In Me.Controls
      If TypeName(ctrl) = "CheckBox" Then ctrl.Value = Me.OptionButton2.Value
   Next ctrl

 

[sramsay]

All methods work a treat. Thanks guys.
Although it's going to do my head in why my original approach didn't work.

I added debug.prints and it was only OptionButtons that were being included with the CheckBoxes, other objects were fine

 

[Fluff]

Glad we could help.

Like MickG, I don't understand why it fails.