Сообщество Чайников

Вопрос

Вот решил я в Personal.XLS вставить такой набор макросов, который должен запускаться в 2 часа пополудни. Но эта комбинация запускается не в 14-00, а каждый раз, когда я запускаю Эксель. Что я делаю неправильно?

Sub Auto_Open()
Call Time_Trapper
End Sub
Sub Time_Trapper()
Application.OnTime EarliestTime:=TimeValue("14:00"), _
Procedure:=Напомнить_Про_Обед, _
LatestTime:=TimeValue("14:30"), _
Schedule:=False
End Sub
Function Напомнить_Про_Обед()
…
…
End Function

Ответ

Имя процедуры попробуйте поместить в кавычки. Вот так работает без проблем:

Sub InTime()
Application.OnTime TimeValue("16:00:00"), "Hello"
End Sub
Function Hello()
MsgBox "!!!"
End Function

Alex