Eu gostaria de ter um código que desmarca todas as caixas de seleção "CheckBox1" para todas as planilhas na pasta de trabalho. Meu código atual infelizmente não funciona, e não sei por que - ele só funciona para a planilha ativa.

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