Timed Operation

[Todd Huttenstine]

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

 

[Chip Pearson]

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

 

[Tom Ogilvy]

Dim strt as Single
strt = Timer

.. . .

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