Show a message only once, using Application.OnTime

[elsg]

Hellow
how to show a message only when the value of A1 is equal to A2?

Dim agora As Date

Sub Watch()
Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
Call Atualiza
End Sub

Sub Atualiza()Myhour = Now + TimeValue("00:00:01")
Application.OnTime Myhour, "Watch"
If [A2].Value = [A2].Value Then
Call MyMenssage
End If
End Sub

Sub StopWatch()
Application.OnTime EarliestTime:=Myhour, Procedure:="Watch", Schedule:=False
End Sub


Sub MyMenssage()


MsgBox "Hellow"


End Sub

[Aflatoon]

Change
Dim agora As Date
to:
Dim myhour As Date

Then:
Sub MyMenssage()
MsgBox "Hellow"
StopWatch
End Sub

Or simply:
Sub Atualiza()

If [A2].Value = [A2].Value Then
Call MyMenssage
Else
Myhour = Now + TimeValue("00:00:01")
Application.OnTime Myhour, "Watch"
End If
End Sub

[elsg]

Thank you!!!!!!!!!!!!