Aggiungi un modulo al tuo progetto e poi inserisci il seguente codice:
codice:
Public TimeRun As Double
Public Sub StartMyTimer()
TimeRun = Now + TimeSerial(0, 0, 5)
Application.OnTime EarliestTime:=TimeRun, Procedure:="DoSomething", _
Schedule:=True
End Sub
Public Sub DoSomething()
'-----------------------
'Tuo codice da eseguire
MsgBox ("messaggio")
'-----------------------
StartMyTimer
End Sub
In questo caso utilizzo un timer da 5 secondi
Per fermare il Timer:
codice:
Sub StopMyTimer()
Application.OnTime EarliestTime:=TimeRun ,Procedure:="DoSomething", _
Schedule:=False
End Sub