Boa noite!!
Considerando que você, alocou o código dentro de "EstaPasta_de_Trabalho", então ...
Private Sub Workbook_Open()
Application.OnKey "{Escape}", ""
'Seu_Código_Aqui....
Application.OnKey "{Escape}"
End Sub
Não testado!!!
Att
Postado : 28/08/2012 5:50 pm