Acho que seria tipo isso:
Application.OnKey "{Escape}", ""
Sugiro o evento
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "{Escape}", "{Escape}"
End Sub
Pois se você abrir esta planilha, junto com outras, o ESC deixa de funcionar nas outras também
Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓
Postado : 13/03/2018 6:51 am