Gostaria de um atraso de 1 segundo no meu código. Abaixo está o código que estou tentando fazer esse atraso. Eu acho que ele pesquisa a data e a hora do sistema operacional e aguarda até que os horários correspondam. Estou tendo um problema com o atraso. Eu acho que não pesquisa o horário em que corresponde ao tempo de espera e apenas fica lá e congela. Ele congela apenas cerca de 5% do tempo em que executo o código. Eu estava pensando em Application.Wait e se existe uma maneira de verificar se o tempo de pesquisa é maior que o tempo de esper

   newHour = Hour(Now())
   newMinute = Minute(Now())
   newSecond = Second(Now()) + 1
   waitTime = TimeSerial(newHour, newMinute, newSecond)
   Application.Wait waitTime