Excel – checkbox全部在Visual Basic中select

我是Visual Basic的新手。 我尝试过了

Sub SelectAll_Click() 'Update 20150309 Dim xCheckBox As CheckBox For Each xCheckBox In Application.ActiveSheet.CheckBoxes If xCheckBox.Name <> Application.ActiveSheet.CheckBoxes("Check Box 1").Name Then xCheckBox.Value = Application.ActiveSheet.CheckBoxes("Check Box 1").Value End If Next End Sub 

我已将我的主checkbox命名为“全选”。 我在模块窗口popup错误1004有麻烦。如果有人知道我做错了什么？