Tente assim:

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If KeyAscii = 27 Then

Unload Me

End If

End Sub

Não consegui fazer funcionar no meu, copiei o código e quando clico em ESC nada acontece.

Obs: O nome da minha planilha é janelarestaurar, já tentei alterar de UserForm para janelarestaurar também e nada... Alguma luz ? Obrigado

veja:
O codigo abaixo deve ser inserido no objeto que receba o setfocus.
primeiro faça com que o objeto fique selecionado com o setfocus. No caso um Textbox ou Combobox.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then
Unload Me
End If

Cria um CommandButton como Name "CbSair"

Na janela de propriedade deste comando coloca Cancel True

Private Sub CbSair_Click()

Unload Me

End Sub

Quando não é necessário ir até o final de um cadastro, por exemplo, e o cursor estiver em um textbox no qual tenha o codigo de fechar com a tecla ESC:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 27 Then
Unload Me
End If

funciona só com o evento KeyPress de um objeto.

Consegui resolver, usando userform não funcionou, coloque 3 códigos, um referindo a um listbox e dois a 2 botões. ou seja sempre vou poder da esc pois sempre a seta estará no listbox ou em um dos dois botões. Vlw