I've done this by declaring variables Beg and Fin (for Begin and
Finish) as dates; at the beginning of the code enter the line Beg =
Now() and at the end of the code enter Fin = Now(). Elapsed time is
the result of the formula Fin-Beg, which you can display in a message
box or write to a cell.