Application.OnKey does not work
<p>I am trying to execute a sub, when I press a specific key in Excel 2013, using the <code>Application.OnKey</code> method.</p>

<p>I have the following code</p>

<pre><code>Public Sub Workbook_Open()
    Application.OnKey "{r}", "MyEvent"
    Application.OnKey "{t}", "MyEvent"
    Application.OnKey "{x}", "MyEvent"
    Application.OnKey "{z}", "MyEvent"
End Sub

Public Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "{r}"
    Application.OnKey "{t}"
    Application.OnKey "{x}"
    Application.OnKey "{z}"
End Sub

Public Sub MyEvent()
    MsgBox "Hello"
End Sub
</code></pre>

<p>When I press the keys the sub <code>MyEvent</code> does not executes. How can I modify the code to make it work?</p>

<hr>

<p><strong>EDIT</strong>: I want the keys to be pressed to be: <code>r</code>, <code>t</code>, <code>x</code>, and <code>z</code> instead of <code>ENTER</code>. </p>