Я хотел бы иметь код, который снимает все флажки с именем "CheckBox1" для всех листов по всей книге. Мой текущий код, к сожалению, неработать, а яЯ не уверен, почему - это работает только для активного листа.

Private Sub CommandButton1_Click()

    Dim Sheet As Worksheet
    For Each Sheet In ThisWorkbook.Worksheets

        Select Case CheckBox1.Value
        Case True: CheckBox1.Value = False
        End Select  
    Next
End Sub