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...............