Sì, l'esempio che mi hai fatto vedere è il seguente:

Sub timerMsg()
Dim alertTime
MsgBox "The alarm will go off in 3 seconds!"
alertTime = Now + TimeValue("00:00:03")
Application.OnTime alertTime, "msg"
End Sub

In cui la routine timerMsg()attiva ogni 3 secondi la routine "msg". Ma x funzionara la routine timermsg() deve essere attivata manualmente, come la posso attivare in automatico, metterla sempre in sottofondo al mio sistema?

Grazie dell'aiuto
Malva