Excel VBA application.wait method is similar to sleep

1. This case will pop up MsgBox at six o'clock.

Sub test01 () If application.wait ("6:00:00") then MsgBox "Now time Six o'clock full" ' This is the system time End IfEnd Sub

2.10 seconds after executing this macro, the MsgBox pops up.

sub test02 () Newhour = hour (now ())  newminute = minute (now ()) newsecond =  second (now ())  + 10waittime = timeserial (Newhour, newminute, newsecond) If  Application.Wait waitTime Then MsgBox  "time passed 10 seconds"   end ifend sub 

3.10 seconds after executing this macro, the MsgBox pops up.

Sub test03 () If application.wait (now + timevalue ("0:00:10")) then ' feels simpler than test02 MsgBox ' Time passed 10 seconds ' End IfEnd Sub

Excel VBA application.wait method is similar to sleep