Want a quick way to time your macro or demonstrate to your user how fast your macro runs? Here is a quick code that will pop up a message box displaying the time it took!
Sub Time()
Dim Start As Long, Ending As Long, Time As Long
Start = Timer()
'insert macro here
Ending = Timer()
Time = Ending - Start
MsgBox "Time lapsed: " & Format(Time / 60, "###.00") & " minutes or " & Time & " seconds"
End Sub
No comments:
Post a Comment