não consigo achar o erro !!!!!

[Eduardo Antonio Bueno Filho]

Estou tentando criara uma forma de chamar um userform por uma tecla do teclado e fechar com "esc" 

e quando uso unloand userfor1 aparece erro de type ou sub não definido 

este é meu código : 

Na pasta de tabralho :

|=====================================================================================|

Public Sub Workbooks()
Application.OnKey "{f4}", "abrirform"
Application.OnKey "{esc}", "fecharform"
End Sub

E no Módulo 1:

|=====================================================================================|

Sub abrirform()
UserForm1.Show
End Sub

|=====================================================================================|

Sub fecharform()
unloand UserForm1
End Sub
  

Obs funciona perfeitamente na hora de chamar mas na hora de fechar não...............

[Alyson Ronnan Martins]

Não testei mais já tentou colocar o código dentro do userform para fechar? No evento de keypress?