Hi,
let me suggest a "Caveman technique"
1.
copy your code to column A
insert a row between all rows (there are tricks to do them all at once)
2.
in column B
=IF(A1="","Sleep CLng(t)",A1)
3.
paste back to VBA
and insert 2 codelines
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const t = 2000
example
Code:
Sub test1()
Range("A1") = Int(Rnd * 5555)
Range("A2") = Int(Rnd * 5555)
Range("A3") = Int(Rnd * 5555)
End Sub
A B
1 Sub test1() Sub test1()
2 Sleep CLng(t)
3 Range("A1") = Int(Rnd * 5555) Range("A1") = Int(Rnd * 5555)
4 Sleep CLng(t)
5 Range("A2") = Int(Rnd * 5555) Range("A2") = Int(Rnd * 5555)
6 Sleep CLng(t)
7 Range("A3") = Int(Rnd * 5555) Range("A3") = Int(Rnd * 5555)
8 Sleep CLng(t)
9 End Sub End Sub
test
[Table-It] version 07 by Erik Van Geit
Code:
RANGE FORMULA (1st cell)
B1:B9 =IF(A1="","Sleep CLng(t)",A1)
[Table-It] version 07 by Erik Van Geit
Code:
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Const t = 2000
Sub test1()
Sleep CLng(t)
Range("A1") = Int(Rnd * 5555)
Sleep CLng(t)
Range("A2") = Int(Rnd * 5555)
Sleep CLng(t)
Range("A3") = Int(Rnd * 5555)
Sleep CLng(t)
End Sub
kind regards,
Erik