TEMPO DE EXECUCAO DE UMA SUB

LEAO10 06/01/2014 20:42:45
#432700
Olá Galera,

Estou querendo lembrar a função para calcular o tempo de execução de uma sub, eu lembro que colocava um código no inicio da sub, e ao terminar o processamento, dava o tempo que demorou para processar... Mas esqueci geral... alguém sabe?
FILMAN 06/01/2014 21:59:13
#432706
Resposta escolhida
Private Sub SUA_SUB()
Dim lTimer As Long

lTimer = Timer

...
Sua rotina aqui
...

MsgBox [Ô]Tempo de execução : [Ô] & Timer - lTimer & [Ô] segs.[Ô]
End Sub
Tópico encerrado , respostas não são mais permitidas