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")