Automatically Moving the Cursor to Next Cell

Hi there,

You can use APPLICATION.ONTIME

E.g.:

Sub SelectAnother()
ActiveCell.Offset(1, 0).Select
Application.OnTime Now() + TimeSerial(0, 1, 0), "SelectAnother"
End Sub

For disabling:

Sub StopSelecting()
Application.OnTime Now() + TimeSerial(0, 1, 0), "SelectAnother", , False
End Sub

Does it help?