Для того, чтобы узнать сколько времени прошло пока выполнялся нужный макрос, можно использовать, например, функцию Timer
Private Sub YourMacro()
iTimer! = Timer
'Здесь должен быть код Вашей программы.
MsgBox "Время выполнения макроса составило " & _
Timer - iTimer! & " сек.", vbExclamation, ""
MsgBox "Время выполнения макроса составило " & _
Format((Timer - iTimer!) / 86400, "Long Time"), vbExclamation, ""
End Sub
Если Вы хотите получить время именно в секундах, то используйте первый MsgBox, если в часах, минутах и секундах, то второй. Если же Вам необходимо получить количество миллисекунд или существует вероятность, что Ваш макрос может быть запущен до полуночи, а обработка данных может закончиться после полуночи, то в этих случаях можно использовать следующий