excel2007 vba代码运行不了，是什么回事？

Question

Sub 快捷键()
Application.OnKey "+{f1}", "排序"
End Sub

Sub 排序()
Sheet1.UsedRange.Sort key1:=Range("h1"), hearder:=xlYes
End Sub

运行后提示框说宏可能未启用或宏“排序”不存在。。。。这个代码是书上的，有错误吗？

Answer 1

代码要放在【模块】里面才可以，放在工作表中不行的，下面是我修改测试通过的代码：