Как отловить событие нажатия клавиши Esc?

[IgorGO]

хорошо, давайте считать вместе "Cod1", "Cod2" и ???
где тут

сотни вариантов решения

щелкайте F9 и просматривайте все новые варианты решений)

[Веди]

Вы же должны понимать, что "Cod1", "Cod2" представлены для примера, первый выводит таблицу, второй - затирает её. таблийа каждый раз меняется принимая другие значения.

xlsx у меня не грузятся

[peq]

а не будет вам удобнее поступить как-нибудь проще?
скажем, процедуру, которой определено формирование/обновление таблицы повесить куда-нибудь на ctrl+q/ctrl+й. escape в таком случае для выхода нажимать не нужно.

[Казанский]

Сообщение от Веди

никакие InputBox, MsgBox не годятся, надо просто сидеть у экрана и щёлкать пробел просматривая сотни вариантов решения

Вам на кибере правильно посоветовали форму использовать. Форма ведь может быть минимального размера. Пробуйте.

'Код обычного модуля

Option Explicit

Sub auto_open()
  Main
End Sub

Sub Main()
  Do
    Code1
    UserForm1.Show
    If UserForm1.finish Then Exit Do
    Code2
  Loop
End Sub

Sub Code1()
  Range("A1") = Rnd
End Sub

Sub Code2()
  Range("A1").ClearContents
End Sub

'Код формы

Option Explicit

Public finish

Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  finish = KeyAscii = 27 'Escape
  Me.Hide
End Sub

[Веди]

спасибо! такой вариант подходит.

единственное что - если запустить макрос с листа Excel, то ругается на

UserForm1.Show

но из VB всё нормально работает.