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