Acho que seria tipo isso:

Application.OnKey "{Escape}", ""

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

Galera esse jeito já tentei mas não funciona, queria algo no userform mesmo tipo inicialize ou ate mesmo keypress keydown algo do tipo.