Timer

To create a macro to measure time before executing the next line of code use this simple code.

Sub timer ()
Application.Wait Now + TimeValue("00:00:10")
MsgBox ("10 sec has elasped")
End Sub