Mensagem de alerta diário a determinada hora

Para aparecer a mensagem

Atenção!!!! São horas de ACORDAR!!!

a uma determinada hora (no exemplo, às 18:19:00), podemos utilizar, adaptado, os seguintes módulos:

Sub Auto_Open()
Application.OnTime TimeValue("18:19:00"), "Mensagem"
End Sub

Sub Mensagem()
Dim msg As String
msg = MsgBox("Atenção!!!! São horas de ACORDAR!!!")

End Sub