Dúvida - Macro conta tempo da subrotina

Pessoal tenho uma subrotina que deve demorar de 6 a 8 horas.Eu gostaria de saber o tempo exato dela(ou seja, gostaria que ao terminnar a rotina, vir uma caixa d mensagem avisando quanto tempo durou ela).

Alguém pode me ajudar nessa?

Obrigado!!

Bom dia!!

Veja.

Código:

Dim start_time, end_time
start_time = Now()

'Aqui fica seu código

end_time = Now()
MsgBox(DateDiff("s", start_time, end_time))

At++