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.
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.
VBA Code:
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