How do I close application.onkey procedure

[jetjockey]

Hi,

As I am changing the functionality of the Function keys to accommodate my workbook, I will need to have a procedure to close. Can anyone help me with this one.

Here is the code to open

Code: Select all

Private Sub Workbook_Open()
        Application.OnKey "{F1}", "Showtold"
        Application.OnKey "{F2}", "Showcharts"
        Application.OnKey "{F3}", "Showarea"
        Application.OnKey "^{F4}", "print"
End Sub

module code

Code: Select all

Sub showtold()
   Sheets("told").Select
End Sub

Thank you for your help

[TMShucks]

http://msdn.microsoft.com/en-us/library/aa195807(v=office.11).aspx

Code: Select all

This example assigns "InsertProc" to the key sequence CTRL+PLUS SIGN and assigns "SpecialPrintProc" to the key sequence SHIFT+CTRL+RIGHT ARROW.

Application.OnKey "^{+}", "InsertProc"
Application.OnKey "+^{RIGHT}", "SpecialPrintProc"
      
This example returns SHIFT+CTRL+RIGHT ARROW to its normal meaning.

Application.OnKey "+^{RIGHT}"
      
This example disables the SHIFT+CTRL+RIGHT ARROW key sequence.

Application.OnKey "+^{RIGHT}", ""
      


Regards, TMS