Excel VBA espera
Application.Wait (Now + TimeValue("0:00:10"))
Zealous Zebra
Application.Wait (Now + TimeValue("0:00:10"))
Application.Wait(Now + TimeValue("00:00:01")) ' 1 second