Этот код должен сделать это для вас:
Public Sub SetUpKeyboardShortcut()
Application.OnKey "^z", "SelectColInSelectedRow"
End Sub
Public Sub SelectColInSelectedRow()
Const ColToSelect = "X"
Range(ColToSelect & CStr(Selection.Row)).Select
End Sub
Просто вызовите SetUpKeyboardShortcut в событии Workbook_Open в модуле ThisWorkbook. Я считаю, что приведенный выше код необходимо хранить в стандартном модуле.
Надеюсь, это поможет ...