Elapsed time

Original by reinie, 2017 

This summary note was Posted on

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)"