Boa noite Marcelo

Você deve estar se referindo a função OnTime.

Acesse o link:

http://www.tomasvasquez.com.br/artigos/ ... ao_de.html

At.te

Boa noite!!

Sub RunOnTime()
    dTime = Now + TimeValue("00:00:35")
    Application.OnTime dTime, "RunOnTime"
     
    If Cells(1, 4).Value <= Cells(6, 2).Value Then
        Cells(1, 4).Value = Cells(1, 4).Value + 1
        Application.OnTime dTime, "RunOnTime"
    Else
        Cells(1, 4).Value = 0
        Application.OnTime dTime, "RunOnTime"
    End If
End Sub

Outras fontes:
http://www.globaliconnect.com/excel/ind ... Itemid=475

att

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.