dosomething nelle macro di excel

[thor92]

no, nulla da fare... io non avevo messo:

Private Sub CommandButton1_Click()

ma anche adesso che l'ho messo non vuole funzionare...
se volete di vedere di persona il problema posto il file di excel su qualche servizio di hosting... ma lo devo fare domani perchè il file cel'ho in ufficio.. XD
non so + dove sbattere la testa...
comunque vi posto il codice come si presenta adesso:

Public TimeRun As Double

Public Sub StartMyTimer()
    TimeRun = Now + TimeSerial(0, 0, 1)
    Application.OnTime EarliestTime:=TimeRun, Procedure:="DoSomething", _
    Schedule:=True
End Sub

Public Sub DoSomething()

totale = Range("B4").Value
ultimo = Range("B3").Value
differenza = totale - ultimo
If differenza >= 20 Then
MsgBox "esegui manutenzione"
Range("B3").Value = totale
End If
End Sub
Private Sub CommandButton1_Click()
StartMyTimer
End Sub