Button To Hide All Option Buttons

[riedyp]

Hello,

I am creating a button that will display all hidden Rows, GroupBoxes and Option Buttons.
My code for the GroupBoxes works but I cant get the option button code to work correctly.
Below is my current work. Thank you.

Private Sub CommandButton5_Click() ' Enter Editing Mode
Dim myGB As GroupBox    'Hide All Group Boxes
For Each myGB In ActiveSheet.GroupBoxes
myGB.Visible = True
Next myGB

Dim myOB As OptionButton            'Hide All Option Buttons
For Each myOB In ActiveSheet.Shapes
myOB.Visible = False
Next myOB

Rows("9:100").Hidden = False
End Sub

 

[dmt32]

Try following change to your For Next Loop & see if helps

For Each myOB In ActiveSheet.OptionButtons
    myOB.Visible = msoFalse
Next myOB

Dave

 

[riedyp]

Okay thank you that worked!

 

[dmt32]

Okay thank you that worked!

most welcome

Dave