如何解决单元格公式结果改变时msgbox出现两次的问题？

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    
    ' 处理公式结果改变的逻辑代码
    
    Application.EnableEvents = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Static flag As Integer
    
    If flag = 0 Then
        ' 处理公式结果改变的逻辑代码
        MsgBox "单元格公式结果已改变"
        
        flag = 1
    Else
        flag = 0
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.OnTime Now + TimeValue("00:00:01"), "ShowMessageBox"
End Sub

Private Sub ShowMessageBox()
    MsgBox "单元格公式结果已改变"
End Sub