Ricardo Silva_724044

Ricardo,

 

Acredito que a rotina abaixo atenda sua 1º necessidade:

 

"' inserir comando para esperar aproximadamente 1 segundo para para o próximo i"

 

Este código para a macro por aproximadamente 1 segundos.

newHour = Hour(Now())

newMinute = Minute(Now())

newSecond = Second(Now()) + 1 ' defina aqui os segundos

waitTime = TimeSerial(newHour, newMinute, newSecond)

Application.Wait waitTime

 

 

Sua 2º necessidade ficarei devendo ...

 

 

"também queria que a subrotina fosse interrompida com um click do mouse."

 

 

Sem mais.

Agradeço por sua colaboração; já me resolveu a metade do problema.

Gostaria de implementar na rotina abaixo, que tem inicio quando abre uma planilha, 2 instruções: uma para incluir um tempo determinado de espera para o próximo i e também queria que a subrotina fosse interrompida com um click do mouse.