Right click sheet tabview codecopy/paste this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
Select Case Target.Column
Case Is < 4: Target.Offset(, 1).Select
Case 4: Target.Offset(1, -3).Select
Case Else
End Select
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Dono2008" wrote in message
...
Hi,

Have a bit of a problem that i'm hoping someone here can help me solve.

Basically in a spreadsheet, i need the enter key to shift the selection to
the right for 3 columns when pressed, and then after the Third time i push
the enter key i want it to set the selection to the first column again,
but
on the row below,

For example,

A1 (ENTER) B1 (ENTER) C1 (ENTER) A2 (ENTER) B2.........ETC

If anyone could help me out i would be extremely greatful.

Thanks in advance,