thanks but that still gets stuck.
I got it to work using
Function CmdSetTheTimer()
Dim StartTime
'Timer events
StartTime = "08:30"
Do Until Format(Time, "short Time") = StartTime
If Format(Time, "short Time") = StartTime Then Exit Do
Loop
MsgBox "The time is " &...