Do I have to write a seperate code for each ActiveX checkbox to hide rows?

I have a very large spreadsheet that has many (100+) ActiveX checkboxes, about half of the those are in control of hiding or un-hiding rows. Below is a string of codes that I have in place currently to make the page functional for my purposes but there is ALOT of code I had to write over and over (or copy and paste) for each ActiveX Control and its affiliated rows.

My question is this: is there a way to have one code for all or do they each need to be done separately as I have done already?

Private Sub CheckBox1_Click()
    If CheckBox1.Value Then
        Range("A19:C19").EntireRow.Hidden = False
    Else
        Range("A19:C19").EntireRow.Hidden = True
    End If
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2.Value Then
        Range("A21:C21").EntireRow.Hidden = False
    Else
        Range("A21:C21").EntireRow.Hidden = True
    End If
End Sub

Private Sub CheckBox3_Click()
    If CheckBox3.Value Then
        Range("A23:C23").EntireRow.Hidden = False
    Else
        Range("A23:C23").EntireRow.Hidden = True
    End If
End Sub

You guys are the best!!! THANK YOU

This works.

Wait and I'll give you some better news.

Private Sub CheckBox1_Click()
    HideUnhide (1)
End Sub

Private Sub CheckBox2_Click()
    HideUnhide (2)
End Sub

Sub HideUnhide(CBox As Integer)
If ActiveSheet.CheckBoxes(CBox) = 1 Then
Rows(CBox + 18).EntireRow.Hidden = True
Else
Rows(CBox + 18).EntireRow.Hidden = False
End If
End Sub

Sorry I had a corrupt file.

Had to recreate it.

Ok in the attached file.

Type 100 into D4 and click on the button.

The macro will create the code for 100 Checkboxes.

Cut column A and paste into visual basic.

Enjoy

So the above would be great if all of my checkboxes and row numbers followed that module however, as luck would have it that pattern doesn't follow through the rest of the sheet.

Wow you're amazing! I'll send tomorrow morning when I return to work. Thank you so Oooooh much!

As promised here is the sheet I am working on with all proprietary info removed. Don't laugh, this was my first try at doing something like this. Thank you again for your help!! I just want the specified rows to be hidden when the boxes are checked and the boxes within those rows to be hidden as well.