Put this in a standard module:

Public down As Boolean


Put this in workshet code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then
Exit Sub
End If
If down Then
Target.Offset(1, 0).Select
Else
n = Target.Row
Range("A" & n).Select
End If
down = Not down
End Sub

--
Gary''s Student - gsnu200726


"Steved" wrote:

Hello from Steved

Question how can I have the enter key shift down to the next below cell and
then the home key please.

an example would be The enter key is in Cell K7 now I want the enter key to
go Cell K8 and then to Cell A8

another example would be The enter key is in Cell K8 now I want the enter
key to go Cell K9 and then to Cell A9 ( in other words down 1 cell then use
the home key ).

Thankyou.