VBA 選択範囲のチェックボックスをオン・オフ(動画あり)

Sub 指定範囲のチェックボックスオン()

Dim cb As checkbox

    '選択範囲のチェックボックスをループ
    For Each cb In ActiveSheet.CheckBoxes
        If Not Application.Intersect(cb.TopLeftCell, Selection) Is Nothing Then
            cb.Value = True
        End If
    Next cb

End Sub

Sub 指定範囲のチェックボックスオフ()

Dim cb As checkbox

    '選択範囲のチェックボックスをループ
    For Each cb In ActiveSheet.CheckBoxes
        If Not Application.Intersect(cb.TopLeftCell, Selection) Is Nothing Then
            cb.Value = False
        End If
    Next cb

End Sub