Two questions:

What exactly are you trying to accomplish? It appears that cells are
sequentially selected and nothing else is done.

Do you define "down" somewhere?

Dim Down as Boolean

Down = TRUE

??
--
HTH,
Barb Reinhardt

If this post was helpful to you, please click YES below.



"Steved" wrote:

Hello from Steved

Please how can I add a piece of code to below that will allow me to do 2
data entries skip a column then carry on inputing until I reach the last
Colum which is K:\

I thankyou for looking at my issue.

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 + 1
Range("C" & n).Select
End If
down = Not down
End Sub