hey guys

I have a code that takes about 1 minute 40 seconds to
run. Is there anyway to time how long this operation
takes? At the very end of my code I want to put a message
box stating how long it took the code from start until the
point I want the message to appear.


Thanks

Todd Huttenstine

Todd,

Write your code similar to the following:

Dim StartTime As Double
Dim EndTime As Double
StartTime = Now
'
' your code here
'
EndTime = Now
Msgbox "Code took: " & Format(EndTime - StartTime,"hh:mm:ss") & "
to run"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Todd Huttenstine" wrote in
message ...
hey guys

I have a code that takes about 1 minute 40 seconds to
run. Is there anyway to time how long this operation
takes? At the very end of my code I want to put a message
box stating how long it took the code from start until the
point I want the message to appear.


Thanks

Todd Huttenstine

Dim strt as Single
strt = Timer

.. . .

msgbox "took " & Timer - strt & " seconds"

--
Regards,
Tom Ogilvy

"Todd Huttenstine" wrote in message
...
hey guys

I have a code that takes about 1 minute 40 seconds to
run. Is there anyway to time how long this operation
takes? At the very end of my code I want to put a message
box stating how long it took the code from start until the
point I want the message to appear.


Thanks

Todd Huttenstine