Conocer el tiempo que tarda una macro en ejecutarse

Código VBA :

Sub Codigo()

Dim t0, t1 As Variant
t0 = Format(Now, "hh:mm:ss")


'1 ) Aquí va la macro:
' 0101010 0000100101
' 0010111 1010010101

'2) Luego de ejecutar la macro:

t1 = Format(Now, "hh:mm:ss")
tiempo = Format(TimeValue(t1) - TimeValue(t0), "hh:mm:ss")
MsgBox "Se procesaron todos los registros en: " & Chr(13) & tiempo & Chr(13) & "hh:mm:ss", vbOKOnly + vbInformation, "Excel Consultor"    'Muestra un aviso ejecutada la macro.

End Sub