Soru For ....next kodunun arasına 20 saniye pause eklemek

[seckinb]

Merhaba
300 kez tekrarlanan bir for...next kodu çalıştırıyorum. Kodu her dosyada 20 saniye kadar pause'lamak istiyorum. Mümkün müdür? İşlemi hızlı yapması bazı başka programlarda sorunlara neden oluyor.

 

[Korhan Ayhan]

Application.Wait komutunu araştırınız.

 

[seckinb]

Application.Wait komutunu araştırınız.

Sub test()

For i = 1 To 2
MsgBox 111

Application.Wait (Now + TimeValue("0:00:20"))
Next


End Sub

sanırım bu şekile doğru?