[Tasos]

Στο αρχικό παράδειγμα σου γράφω πως να το κάνεις με το πληκτρολόγιο (CTRL + j)

Μπορείς να αλλάξεις τον συνδυασμό πλήκτρων τροποποιώντας τον κώδικα που βρίσκεται στην κλάση "Αυτό_το_βιβλίο_εργασίας" του παραδείγματος.

Private Sub Workbook_Open()
    Application.OnKey "^j", "ShowSearchBox"
End Sub

Στην ίδια κλάση θα σου πρότεινα να προσθέσεις το παρακάτω:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^j"
End Sub

Τάσος