É bem como o Wagner disse, da para captar a idéia, mas precisamos de detalhes, dependendo do tipo de rotina que está executando tem como parar atraves de outra, por exemplo, supondo que está executando uma rotina que adiciona um relógio em uma celula e o mesmo fica atualizando segundo a segundo, ou seja continuará até que interrompemos a execução, então colocamos outra para interromper.
Seria mais ou menos assim :
Pegando um exemplo aqui do Forum (relogio automatico - viewtopic.php?f=29&t=7309)
Dim aHora As Date
Sub Tempo()
Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
Horario
End Sub
Sub Horario()
aHora = Now + TimeValue("00:00:01")
Application.OnTime aHora, "Tempo"
End Sub
Sub Parada()
Application.OnTime EarliestTime:=aHora, Procedure:="Tempo", Schedule:=False
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 08/12/2015 8:51 am