Функция времени

[i777]

Подскажите, пожалуйста как прописать условие -с17.00-24.00? (Application.OnTime ) Спасибо

[IgorGO]

Application.OnTime запускает в определенное время определенную процедуру.
Посколько совершенно непонятно, что делать с 17:00 до 24:00, может вот это подойдет?

Private Sub Workbook_Open()
  If Now > Int(Now) + 17 / 24 Then
    Hello
  Else
    Application.OnTime Int(Now) + 17 / 24, "Hello"
  End If
End Sub

Sub Hello()
'  ...
End Sub

[i777]

Спасибо вам. Точнее выражусь - код для MsgBox к этому вемени всего лишь

[IgorGO]

к какому именно времени? между 17:00 и 24:00, с точки зрения математики, находится бесконечное количество квантов времени.
впишите свой MsgBox между
Sub Hello()
и
End Sub, (вместо и).
и он обьявится в 17:00, если файл будет открыт до 17:00 (и не закрыт к тому времени), либо сразу при открытии файла, если файл будет открыт после 17:00. Ближайший возможный старт через 13 с половиной часов по киевскому времени.
удачи!

[i777]

спасибо вам! по киевскому и потом по московскому времени )