Option Explicit
Private m_dtmLMBDown As Variant
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
m_dtmLMBDown = Application.Evaluate("NOW()")
End Sub
Private Sub Chart_MouseUp(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long)
Dim dtm As Date: dtm = Application.Evaluate("NOW()")
If IsEmpty(m_dtmLMBDown) Then Exit Sub
If Button <> XlMouseButton.xlPrimaryButton Then Exit Sub
If dtm - m_dtmLMBDown <= 0.0000018 Then
Debug.Print Time$; " Click event"
End If
m_dtmLMBDown = Empty
End Sub