em hỏi về cách Gán phím tắt cho sub (ví dụ phím ` hoặc F1)

[MrSy]

em có 1 sub (group hàng), e muốn gán phím tắt cho sub đó để dùng cho nhanh,
vậy các ac cho e hỏi cách để thực hiện ạ.
e có làm như sau:
Sub Tao_Group()
Dim rcel As String
Application.ScreenUpdating = False
On Error Resume Next
rcel = Selection.Address
Selection.EntireRow.Rows.Group
ActiveSheet.Range(rcel).Select
Application.ScreenUpdating = True
End Sub
________________________________________
Public Sub Workbook_Open()
Application.OnKey "`", ""
Application.OnKey "`", "Tao_Group"
End Sub
__________________________________________
nhưng mỗi lần tắt file và mở lại thì nó lại k hoạt động nữa.
Mong nhận được sự giúp đỡ ạ!

 

[VetMini]

Cha, khoái tắt dữ.
t th t:
Alt > L > PM
cl ch mac
Alt+O
gn ctrl gđ
Ok, Ok