1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Place into Sheet module Application.OnKey "{TAB}", "Down1" End Sub Private Sub Down1() 'Place into Module1 Selection.Offset(1, 0).Select End Sub