Excel - 复选框在Visual Basic中选择全部

Question

我是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

我已将主要复选框命名为＆＃34;选择全部＆＃34;。我在模块窗口中遇到问题，弹出错误1004.如果有人知道我做错了什么？