Excel表单的循环问题

Question

在带有复选框的Excel表单上运行以下代码时，出现类型不匹配错误。不知道为什么在我的其他用户表单上可以正常使用此代码，而不会出现此错误。还注意到办公室中的其他人可以运行此命令而不会出现类型不匹配错误。

代码：

Option Explicit

Private Sub CheckBox1_Click()
End Sub  

Private Sub OkButton_Click()
    Dim c As Control

    For Each c In Me.Controls '<----Error line
        If TypeOf c Is MSForms.CheckBox Then
            If c Then
                Select Case c.Name    
                Case "CheckBox1"
                   'Code    
                Case Else
                End Select
            End If
        End If
    Next c

    Hide
End Sub

我尝试使用For each c in Forms(UserForm1).controls，但是它无法识别出该复选框已选中并在不运行该复选框的代码的情况下运行循环。

任何帮助将不胜感激。

编辑： 这是我目前的参考文献