VBA Wait

[shamas21]

Hi All

I have the following code for illustration purposes, im trying to delay my code for every loop by half a second. However, the code i have delays it by one second. How can i modify it so it delays it by the half second?

Thanks

Sub mac1()

Dim i As Integer
i = 1
Range("A1").Activate

Do Until ActiveCell.Offset(, 1) = 1
Columns(i).Select
Selection = "A"
Application.Wait Now() + TimeValue("0:00:01")
i = i + 1
Loop

End Sub

 

[dyaron]

Do some websearches for Sleep() function.