Hide/Unhide Multiple Checkboxes

Hey folks,

I currently have a check box that when clicked should hide/unhide a column and all checkboxes in the column (50 in total).

The code that I’m using is as follows:

Sub CheckBox_ClientType()

Select Case Worksheets("Client Requests").CheckBoxes("CheckBox_ClientType").Value

Case xlOn

    Range("Client_Request").EntireColumn.Hidden = False

    ActiveSheet.CheckBoxes("ClientRequest_1").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_2").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_3").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_4").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_5").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_6").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_7").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_8").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_9").Visible = True
    ActiveSheet.CheckBoxes("ClientRequest_10").Visible = True

Case xlOff

    Range("Client_Request").EntireColumn.Hidden = True

    ActiveSheet.CheckBoxes("ClientRequest_1").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_2").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_3").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_4").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_5").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_6").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_7").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_8").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_9").Visible = False
    ActiveSheet.CheckBoxes("ClientRequest_10").Visible = False

End Select

End Sub

Is there a more practical way of coding this to reference all 50 checkboxes without having to reference each on individually?

Hello LampCommandr,

You do it this way.

Sub Macro1A()

Dim ChkBox As Object

Select Case Worksheets("Client Requests").CheckBoxes("CheckBox_ClientType").Value

Case xlOn

    Range("Client_Request").EntireColumn.Hidden = False

    For Each ChkBox In ActiveSheet.CheckBoxes
      If ChkBox.Name Like "ClientRequest_*" Then
         ChkBox.Visible = True
      End If
    Next ChkBox

Case xlOff

    Range("Client_Request").EntireColumn.Hidden = True

    For Each ChkBox In ActiveSheet.CheckBoxes
      If ChkBox.Name Like "ClientRequest_*" Then
         ChkBox.Visible = False
      End If
    Next ChkBox

End Select

End Sub