相关疑难解决方法(0)

我希望有一个代码可以取消工作簿中所有工作表的所有名为"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