Assigning hotkey to macro

[Ironman]

Hi

The below code in a module runs when I click an icon on the toolbar:

Sub FindDate()
Dim myDt As Date
Dim myInput As Variant
Dim CellFound As String

If ActiveSheet.Name <> "Training Log" And ActiveSheet.Name <> "Training 1981-1997" Then
    MsgBox "The Locate Entry Date function will only run in Training Log", vbInformation, "Function Invalid in This Sheet"
Exit Sub
    Else
End If

    On Error GoTo Error1
myInput = InputBox("Enter Date Below: (d/m/yy)", "Locate Training Log Entry Date")
    If myInput = "" Then
        MsgBox "Search cancelled!", vbInformation, "Locate Training Log Entry Date"
        Exit Sub
    Else
 
    End If
 
    If IsDate(myInput) Then
        myDt = myInput
        CellFound = Application.Match(CDbl(myDt), ActiveSheet.Range("A:A"), 0)
        ActiveSheet.Range("A" & CellFound).Activate
        Exit Sub
 
    Else
 
    End If
 
Error1:
MsgBox "Sorry, no Training Log entry found for that date", vbInformation, "Search Unsuccessful"

I want to assign a Control+\ keyboard shortcut to this instead and I've adapted the below code I've found online and inserted it in the Training Log sheet.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.OnKey "^{RETURN}", "MyMacro"
End Sub

as follows:

Application.OnKey "\^", "FindDate"

There's no error and I can't get it to run.

I'd really appreciate a solution.

Many thanks!

 

[rlv01]

Have you tried using the Alt-F8 macro dialog to assign it a hotkey?

 

[Ironman]

Ahh, OK thank you. Yes, that works but Control + Shift + a letter is a bit cumbersome compared to clicking an icon. Is this the only combination I'm able to use to do this?

 

[rlv01]

If you are after CTRL + backslash, try putting the caret before the backslash.

Application.OnKey "^\", "FindDate"

 

[Ironman]

Thanks ever so much, that works! I should have known to put the carrot before the stick