[VB in excel] un aiutino con le macro

[Pirelli72]

Aggiungi un modulo al tuo progetto e poi inserisci il seguente 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:

Sub StopMyTimer()
    Application.OnTime EarliestTime:=TimeRun ,Procedure:="DoSomething", _
        Schedule:=False
End Sub