一个控件上的Click事件有时不会触发

Question

我在一张纸上有两个按钮。有时，单击其中一个按钮不会“触发”事件。

• 将光标悬停在按钮上会将光标从十字转换为箭头
• 该按钮似乎没有“按下”，就像事件被触发一样。
• 代码中的断点或停止语句无法到达。
• 其他按钮从不表示此问题。
• 如果代码是手动启动的，代码将按设计运行。
• 在Designer Mode中，代码似乎已附加到按钮上。
• 关闭并重新打开工作表，然后触发正常工作的按钮将恢复此按钮的功能。

麻烦的建议将不胜感激。 按钮代码在下面和属性窗口一样，但我认为问题出在其他地方;只是不知道在哪里看。

同样，另一个非常相似的按钮，它调用不同的代码，似乎一直都正常。

感谢任何指导。

Option Explicit

Private Sub cbDeleteViewed_Click()
With cbDeleteViewed
    .Width = .Width
End With

Application.ScreenUpdating = False

Select Case Environ("COMPUTERNAME")
        Case "RON-DODIER"
            sDrive = "F:\"
            sBasePath = "Videos"
            ProtectDisable Sheet1
            UnProtectEnable Sheet3
            Sheet3.Select
        Case "RONBP"
            sDrive = "Z:\"
            sBasePath = ""
            ProtectDisable Sheet3
            UnProtectEnable Sheet1
            Sheet1.Select
        Case Else
            MsgBox "Cannot Run on This Computer"
            Exit Sub
    End Select
SetUpZ
DeleteViewedShows

Application.ScreenUpdating = True

End Sub