VBA Editor: Delay

Du kan altid lave en for next løkke, som tæller op til en angiven værdi. Den vil automatisk stoppe programmet indtil den er kørt færdig.

Du kan prøve denne metode
tæller i 1000 dele sekunder. dvs. at de 10000 svarer til 10 sekunder

Private Declare Function GetTickCount Lib "kernel32" () As Long

Sub testloop()
Dim Start As Long
Start = GetTickCount
Do While GetTickCount - Start < 10000
Loop
End Sub

en anden og måske simplere metode
(se mere i hjælpen under wait)

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

bak -> tak, kom med at svar og få nogle point

ok :-)