Time delay to change cell reference

**freud1** · 06-16-2009, 11:08 AM

Hi Guys,

I need a code which will take a lump of data, B2:AW366 and cycle through the data in a single cell (A1)

So to clarify Cell A1 should cycle through:

B2
C2
D2
E2
...
...
...
AU2
AV2
AW2
B3
C3
D3
E3
.....
.....
Continue until cell AW366 reached.

If possible i would like the speed of the cycle to be variable, So i can select a 0.5 second delay before Cell A1 changes to the next reference.

Many Many Thanks

**StephenR** · 06-16-2009, 11:45 AM

Try this. I haven't used Wait before and am not sure if goes to half-seconds.

Sub x()

Dim rCell As Range

For Each rCell In Range("B2:AW366")
    Range("A1").Value = rCell
    Application.Wait (Now + TimeValue("0:00:01"))
Next rCell

End Sub