title: Application.OnKey does not work
body: <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>