excel - チェックボックスを使用して行を非表示にする Excel VBA マクロ - If Else ステートメント

Question

1 つのワークシートに 60 個のチェック ボックスがあります。それらはフォーム コントロールのチェックボックスです。それらはすべて、行を非表示にする同様の機能を実行します。チェック ボックスをクリックすると、行が表示されます。チェックを外すと、行は非表示になります。これのために書くことができる簡単な if else または case ステートメントはありますか:

Sub CheckBox1_Click()

    If Range("B4").Value = True Then
        Rows("5:62").EntireRow.Hidden = False
    Else
        Rows("5:62").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox2_Click()

    If Range("B63").Value = True Then
        Rows("64:102").EntireRow.Hidden = False
    Else
        Rows("64:102").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox3_Click()

    If Range("B103").Value = True Then
        Rows("104:129").EntireRow.Hidden = False
    Else
        Rows("104:129").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox4_Click()

    If Range("B130").Value = True Then
        Rows("131:160").EntireRow.Hidden = False
    Else
        Rows("131:160").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox5_Click()

    If Range("B161").Value = True Then
        Rows("162:183").EntireRow.Hidden = False
    Else
        Rows("162:183").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox6_Click()

    If Range("B184").Value = True Then
        Rows("185:222").EntireRow.Hidden = False
    Else
        Rows("185:222").EntireRow.Hidden = True
    End If

End Sub

Sub CheckBox7_Click()

    If Range("B223").Value = True Then
        Rows("224:244").EntireRow.Hidden = False
    Else
        Rows("224:244").EntireRow.Hidden = True
    End If
End Sub

……などなど

また、さらに行を追加または削除する必要がある場合、どのようにコーディングすればよいでしょうか?

手動で個別に修正および編集しなくても、将来的に独自のチェック ボックスを作成するために使用できる形式があれば幸いです