Pausar tempo

Para adicionar uma pausa na planilha ou para o tempo de execução de um código :

‘variáveis
Dim newHour, newMinute, newSecond, waitTime, horario As Date

cells(1,1).value = “teste” ‘para exemplo
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 2
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime
cells(1,1).value = “após o tempo 2 segundos“ ‘para exemplo