Thanks Norman,

Actually the first answer worked the best.
All I had to do is changed to "14"

Thanks again,
Emilio

"Norman Jones" wrote:

Hi Emilio,

Or, to avoid next row selection if column A is the active column, try:

'=============
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error GoTo XIT
Application.EnableEvents = False
If Target.Column 1 Then
Cells(Target.Row + 1, "A").Select
End If

XIT:
Application.EnableEvents = True
End Sub
'<<=============


---
Regards,
Norman



"Norman Jones" wrote in message
...
Hi Emilio,

Perhaps, nearer to your requirement, try:

'=============
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Application.EnableEvents = False
Cells(Target.Row + 1, "A").Select
Application.EnableEvents = True
End Sub
'<<=============

---
Regards,
Norman