ThisWorkbook

Option Explicit

Private Sub Workbook_Open()
    Application.OnKey "^+{]}", "PERSONAL.XLSB!startCrossHair"   '  start :)
    Application.OnKey "^+{[}", "PERSONAL.XLSB!stopCrossHair"   '  stop highlighting
    Application.OnKey "^+.", "PERSONAL.XLSB!StartRowHighlight"   '  start :)
    Application.OnKey "^+,", "PERSONAL.XLSB!StopRowHighlight"   '  stop highlighting
    Application.OnKey "^{RIGHT}", "PERSONAL.XLSB!MoveColumnToRight"
    Application.OnKey "^{LEFT}", "PERSONAL.XLSB!MoveColumnToLeft"
    Application.OnKey "^%f", "PERSONAL.XLSB!clear_filter"
    Application.OnKey "^%n", "PERSONAL.XLSB!CopyToNew"  ' ActiveSheet.Copy
    Application.OnKey "^%c", "PERSONAL.XLSB!Clear_Current_Col_Filter"   ' CTRL+ALT+C
    Application.OnKey "^%g", "PERSONAL.XLSB!Toggle_Grid"    ' CTRL+ALT+G
    Application.OnKey "^%+{DEL}", "PERSONAL.XLSB!DeleteThis"  'CTRL+ALT+SHIFT+DEL
    Application.OnKey "^%t", "PERSONAL.XLSB!createTOC"      'CTRL-ALT-T
    Application.OnKey "^+h", "PERSONAL.XLSB!toggle_hilite"      'CTRL-SHIFT-H
    Application.OnKey "^+c", "PERSONAL.XLSB!Copy_Sheet"      'CTRL-SHIFT-C
    Application.OnKey "^%a", "PERSONAL.XLSB!sort_serial_asc"      'CTRL-ALT-A
    Application.OnKey "^j", "PERSONAL.XLSB!CenterStage.CenterStage"      'CTRL-J
    Application.OnKey "^%e", "PERSONAL.XLSB!Go_To_Block_End"    'CTRL-ALT-E
    Application.OnKey "^%s", "PERSONAL.XLSB!Go_To_Block_Start"    'CTRL-ALT-S
    Application.OnKey "^t", "PERSONAL.XLSB!CopyRow"    'CTRL-T
    Application.OnKey "^+t", "PERSONAL.XLSB!CopyToTop"    'CTRL-SHIFT-T
    Application.OnKey "^%h", "PERSONAL.XLSB!FilterOdd"    'CTRL-ALT-H
    Application.OnKey "^%+h", "PERSONAL.XLSB!FilterOddSelectedColumn"    'CTRL-ALT-SHIFT-H
    Application.OnKey "^%+s", "PERSONAL.XLSB!Save_Filter_Form_Start" 'CTRL-ALT-SHIFT-S
    Application.OnKey "^%+v", "PERSONAL.XLSB!View_Filters_Form_Start" 'CTRL-ALT-SHIFT-V
    Application.OnKey "^%+f", "PERSONAL.XLSB!Apply_Default_Filter" 'CTRL-ALT-SHIFT-F
    Application.OnKey "^{]}", "PERSONAL.XLSB!incr_font" 'CTRL+]
    Application.OnKey "^{[}", "PERSONAL.XLSB!decr_font" 'CTRL+]
    Application.OnKey "%{UP}", "PERSONAL.XLSB!incr" 'ALT+DownArrow
    Application.OnKey "%{DOWN}", "PERSONAL.XLSB!decr" 'ALT+UpArrow
    Application.OnKey "^%+n", "PERSONAL.XLSB!Num_Eng.Num_Eng" 'CTRL-ALT-SHIFT-N
    Application.OnKey "^%d", "PERSONAL.XLSB!ActiveTableFillInBlanks" 'CTRL-ALT-D
    Application.OnKey "^%w", "PERSONAL.XLSB!createWave " 'CTRL-ALT-W to create waveform"
    Application.OnKey "^%+{BackSpace}", "PERSONAL.XLSB!DeleteNotVisibleRowsFromTable " 'CTRL-ALT-SHIFT-BackSpace
    Application.OnKey "^\", "PERSONAL.XLSB!Selection.ClearFormats" 'CTRL backslash
    Application.OnKey "^+v", "PERSONAL.XLSB!FillInSerialNumbersFromTopMostCellInTable" 'CTRL-SHIFT-v
    Application.OnKey "^%u", "PERSONAL.XLSB!UnhideSelectedColumnsFromTable" 'CTRL-ALT-u
    Application.OnKey "^%+u", "PERSONAL.XLSB!HideSelectedColumnsFromTable" 'CTRL-ALT-SHIFT-u
    Application.OnKey "^%l", "PERSONAL.XLSB!forSelection" 'CTRL+ALT+L - make cells that are refs into links

End Sub