El siguiente código te "interrumpe" cada 5 segundos con un aviso:
Código:
Sub Mensaje()
With Application
AppActivate .Caption
.Wait Now + TimeValue("00:00:01")
If .InputBox("Este mensaje me recuerda algo...") <> False Then _
.OnTime Now + TimeValue("00:00:05"), "Mensaje"
End With
End Sub
a) si das un clic en Aceptar volverá a repetirse 5 segundos después.
b) si das clic en Cancelar: se interrumpe.
Naturalmente, deberás reemplazar los 5 segundos por media hora para satisfacer tu necesidad.
Saludos, Cacho.
