Hide Multiple Option Buttons

[riedyp]

Hello,
I am trying to reduce the number of lines of code in my workbook where I am hiding and unhiding a lot of Option Buttons. Is there a way to hide/unhide multiple option buttons in one line?

    ActiveSheet.Shapes("Option Button 20").Visible = True 'Yes  Sub 1
    ActiveSheet.Shapes("Option Button 21").Visible = True 'No  Sub 1

Thank you.

 

[Fluff]

You could loop them like

Sub riedyp()
   Dim i As Long
   For i = 3 To 9
      ActiveSheet.Shapes("Option Button " & i).Visible = True
   Next i
End Sub

 

[Yongle]

if numbers are not sequential

    Dim n As Variant
    For Each n In Array(3, 4, 25)
        ActiveSheet.Shapes("Option Button " & n).Visible = True
    Next n

 

[Yongle]

and to toggle between visible and hidden

    Dim n As Variant
    For Each n In Array(3, 4, 25)
        With ActiveSheet.Shapes("Option Button " & n)
            .Visible = Not .Visible
        End With
    Next n

 

[riedyp]

thanks for your inputs. I should clarify that it is a questionnaire where the visibility of one or multiple option buttons is dependent on whether a different option button is selected. See attached photo.

 

[mikerickson]

You could put the option buttons inside a frame (.SpecialEffect = fmSpecialEffectFlat , .Caption="" to make it invisible) and then toggle the visibility of that Frame.