Try this:
MsgBox Format(Timer - Start,"HH:MM:SS")

Sometimes I want to check several substeps, in which case (just out of
habit) I tend to use:

Time1 = now()
'do code
Time2 = now()
'more code
Time3=now()
etc.

then just use any combo of those, such as
msgbox "Part 1: " & Format(Time2-Time1,"HH:MM:SS") & chr(13) & _
"Part 2: " & Format(Time3-Time2,"HH:MM:SS")

and so on.

HTH,
Keith

"gotroots" wrote:

Hi folks
Thanks for all the advice.

I went for Mike H. approach as it will deal with the midnight issue.

My test returned 1786.469

It would be helpful if the result can be in the hh:mm:ss format.

Thank you

"Mike H" wrote:

it would help if I read my code before posting it:(

Try this instead


Start = Timer
'Your code

MsgBox Timer - Start


Mike


"Mike H" wrote:

Hi,

Timer is the number of seconds since midnight so this will fail if the code
runs over midnight

Dim runtime As Long
Start = Timer
'Your code
MsgBox = Timer - Start


Mike

"gotroots" wrote:

Hi

Is there a msgbox method that will record the length of time it take for
code to complete its execution.

Thank you.