Time Calculation - How long a macro takes to run

Use:

Sub test2()

starttime = Now()

' your code here

endTime = Now()
totTimeSec = Round(((endTime - startTime) * (24 * CLng(3600))), 1)
MsgBox (totTimeSec & " seconds")

End Sub


- Mangesh