Excel - Ver tiempo de ejecucion de macro ??

Sub Mi_Macro()

   Dim Inicio As Single, Final As Single, Dias As Long, Hora As String

   Inicio = Date + (Timer / 86400)

   ' ---&--- Bloque del programa

   Final = Date + (Timer / 86400)   ' --- para hacer la prueba suma aquí un valor por ejemplo 0.8

                                    ' --- otra forma de cambiar de dia es sumar 1.2

                                    ' --- (0.75 son 18 horas,  3/4 de día , 1 son 24 horas)

   Dias = Int(Final - Inicio)

   Hora = Format(Final - Inicio - Dias, "HH:MM:SS")

   MsgBox "Dias: " & Dias & " + Horas: " & Hora

End Sub

Tiempo=Now

   'Aqui la macro

Tiempo=DateDiff("s",Tiempo,Now)