You could just do this with the Selection_Change event for the
worksheet:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = X Then
Cells(Target.Row, Target.Column + 1).Select
ElseIf Target.Column = X+1 Then
Cells(Target.Row + 1, Target.Column - 1).Select
End If

End Sub

Change the Target.Column = X and X + 1 to the appropriate column
numbers, where A = 1, B = 2, C = 3, etc.

HTH,

Nick Hebb
BreezeTree Software
http://www.breezetree.com