How to stop applicaion in seconds in excel - step by step macro wait for one second - Excel Sleep

 Application.Wait (Now + TimeValue("00:00:01"))

or

Application.Wait Now + TimeSerial(0, 0, 5)

Note: This is only work in Excel VBA, Not in Word VBA.