Hier ist ein einfaches Beispiel für die Messung der Laufzeit eines Makros in Excel VBA.

Dim dtStart As Date, dtStop As Date
Dim dtDuration As Date
dtStart = Now

...

dtStop = Now
dtDuration = dtStop - dtStart
ActiveWorksheet.Range("A1").Value = Format(dtDuration , "hh:mm:ss")