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