If I understand correctly ...

Using the worksheet module , depending on your input range you should
adapt following event :

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1,0).Select
End Sub

HTH
Carim


--
Carim
------------------------------------------------------------------------
Carim's Profile: http://www.excelforum.com/member.php...o&userid=33259
View this thread: http://www.excelforum.com/showthread...hreadid=531117