Hier eine Codezeile, die eine Prozedur für die eingestellte Zeit anhält.

In diesem Beispiel wird der Ablauf für 2 Sekunden gestoppt.

 

Public Sub Pause()

MsgBox "Start"

'Codeablauf für 2 Sekunden unterbrechen

Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2) ' 2 für 2 Sekunden

MsgBox "Ende"

End Sub