Sub Row1()
Application.Goto Cells(1, ActiveCell.Column)
End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Programming Cells" wrote in
message ...
I currently have code in VB to position me to the next cell row (1) after
i
reach Row 10 in any given cell.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Row = 11 Then

Target.Offset(1 - Target.Row, 1).Select

End If

End Sub


How do I also incorporate a Ctrl+Shift+J to jump to the next cell row(1)
if
I want to manually do it before reaching Row 10 in any cell?

Your help is much appreciated.