Elapsed times

Original by Reinie, 2017Hamster_gagarin_linkedin
hamster writter This summary note was posted on 2 March 2017, by in Excel #

Get execution time of your code and display it in the status bar.

Dim tic, toc, boom As Double

tic = Now  ' time start

[ Your loop/code here ]

toc = Now  ' end time
boom = tic - toc ' in seconds
Application.StatusBar = " Elapsed Time: " & Format(boom, "hh:mm:ss") & _
" ("  & Format(boom * 86400, "0.00")  & " seconds