I don't think this is everything you want, but see if it helps:[VBA]Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Cells(1, 1)) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target.Offset(1).Activate
Application.EnableEvents = True
If Target = vbNullString Then Target = 1: Exit Sub
If Target = 1 Then Target = vbNullString
End Sub
[/VBA]