Ich hätte gerne einen Code, der alle Kontrollkästchen mit dem Namen "CheckBox1" für alle Arbeitsblätter in der Arbeitsmappe deaktiviert. Mein aktueller Code funktioniert leider nicht und ich weiß nicht warum - er funktioniert nur für das aktive Blatt.

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