Excel VBA チェックボックスに全選択/全解除機能を付ける

チェックボックスに全選択/全解除機能を付けるコード

自分メモ
チェックボックスの上で右クリック → マクロの登録 で以下のプロシージャを登録

Sub チェック11_Click()

Dim i As Long
Dim ws As Worksheet
Set ws = Sheets("Sheet4")

    If ws.Range("E1") = True Then

        For i = 2 To 11
            ws.Cells(i, 5) = True
        Next i

    Else

        For i = 2 To 11
            ws.Cells(i, 5) = False
        Next i

    End If

End Sub

実行結果
D1セルのチェックボックスをクリックすると、すべてのチェックボックスにチェックが入る