Sub test()
Dim r As Long, c As Long
Application.ScreenUpdating = False
For r = 1 To 20
For c = 1 To 20
Cells(r, c) = Int(Rnd() * 1000)
waitabit
Next c
Next r
Application.ScreenUpdating = True
End Sub
Sub waitabit()
Dim t As Single
t = Timer
While Timer < t + 0.01
DoEvents
Wend
End Sub
8 views and no answers? Really?