timer excel

[problema]

Salve
Sto cercando di far girare una routine una sola volta.
Mi spiego meglio:

Private Sub Timer1_OnTimer()
If Toggle1.Value = True Then
Windows("uscite.xls").Activate

Range("B16") = 1 + Range("B16")
Range("b45") = 1 + Range("b45")
Range("A52") = 1 + Range("A52")
Application.Goto Reference:="uscita1"
'Selection.PrintOut Copies:=1, Collate:=True
Range("b17").Select
Selection.Copy
Range("e52").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Timer1.Interval = 0
Range("a4").Select
Application.Run "uscite.xls!spostadati"

End If


End Sub

Adesso uso un secondo timer per riattivare il primo.
Come posso far fare una sola scansione col primo timer?????

[a2000]

Originariamente inviato da problema
...
Mi spiego meglio:
....

[a2000]

sto' ragazzo è tutto un problema ...