Macro que espere 5 segundos

Esto sería un contador de tiempo y cuando alcance el tiempo deseando que te lleve a la ejecución de tu macro, debes de insertar un módulo y poner este código en él cambia las celdas donde estará el reloj a tu gusto:
Sub Reloj()
  Range("A1").Formula = "=NOW()"
  Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub
Sub Auto_Open()
Call Reloj
Call comprobar
End Sub
Sub comprobar()
Dim tiempoINI As Date
Dim tiempoFIN As Date
Range("A1").Select
tiempo = ActiveCell.Text
Range("B1").Value = tiempo
tiempoINI = Range("A1").Text
tiempoFIN = Range("B1").Value
Range("C1").Select
ActiveCell.Formula = "=A1-B1"
End Sub
Sub TUMACRO()
El codigo que tengas
End Sub
Ahora en la hoja donde está el reloj debes de poner esta macro y cambiar el Call ... por el nombre de tu macro
Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Address = "$C$1" And ActiveCell.Text = "0:00:05" Then
Call mia
End If
End Sub
Debes de cambiar las celdas para que coincidan con las de la anterior macro.
Si necesitas alguna aclaración me lo dices, si te ha servido puntúa y finaliza la consulta. Gracias.
>Un saludo
>Julio