use the OnKey method to assign a macro procedure to a single keystroke or any combination of Ctrl, Shift, and Alt with another key.
Sub AssignDown()
Application.OnKey "{Down}", "DownTen"
End Sub
Sub DownTen()
ActiveCell.Offset(10, 0).Select
End Sub
Sub ClearDown()
Application.OnKey "{Down}"
End Sub
Related examples in the same category