Te envío este código para que lo pruebes.
Para agregar el código das alt+f11 vas al lado izquierdo donde dice thisworkbook le das doble click y lo pegas.
En los comentarios coloco las variables que debes de modificar. Cualquier duda me avisas, No se te olvide dar por finalizada la pregunta.
Link libro ejemplo:http://sdrv.ms/Zd2v2S
'By Viktor [email protected]
Const HoraInicio = "00:30:00" 'Hora en que inicia la ejecucion, el libro debe abrirse antes de esta hora
Const Repetir = "00:00:10" 'Tiempo entre mensajes ejemplo 10 segundos
Const Info = "Mensaje de Información" 'Mensaje publicado
Public RunWhen As Double
Sub Mensaje()
MsgBox Info, vbInformation
RunWhen = Now + TimeValue(Repetir)
Application.OnTime RunWhen, "ThisWorkbook.Mensaje"
End Sub
Private Sub Workbook_Open()
Application.OnTime TimeValue(HoraInicio), "ThisWorkbook.Mensaje"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime RunWhen, "ThisWorkbook.Mensaje", , False
End Sub