Time delay to change cell reference

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