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?