Макрос напоминания с выводом сообщения

Здравствуйте! Помогите разобраться в чем проблема или подскажите как это реализовать правильно. Нужно выводить сообщения, после прохождения определенного времени от указанного в ячейке.

Например: вводим 11:30 в ячейке А1, через 30 минут от указанного времени (т.е. в 12) появляется сообщения, после через час от указанного времени (12:30) другое сообщение и т.п.

В программировании для Excel и VBA не силен, но смог соорудить такой примитивный макрос, который вывод сообщения, правда оно выводится каждый раз по 2 раза, а как сделать чтобы сообщение выводилось только 1 раз, понять не могу.

Sub Напоминание()

' Сочетание для запуска: Ctrl+Shift+A

timeStart = TimeValue(Format(Range("A1"), "h:m:s"))
firstAlarm = timeStart + CDate("00:30:00")
secondAlarm = timeStart + CDate("01:00:00")
Application.OnTime firstAlarm, "Alarm"
Application.OnTime secondAlarm, "secAlarm"
End Sub
Sub Alarm()
MsgBox "Сообщение 1"
End Sub
Sub secAlarm()
MsgBox "Сообщение 2"
End Sub