Перехват клавиш OnKey

[Alexandr Zlobin]

Здравствуйте. Скажите, как в макрос перехвата передавать параметры?

Код Выделить Развернуть

Sub KeyOn()
  With Application
  .OnKey "%3", "XXXXXXX"
End Sub

где XXXXX вызов макроса с параметром r

Код Выделить Развернуть

Sub макрос (r)
if r=1 then MsgBox ""
End sub


[kuklp]

Как вариант, делаем переменную r глобальной, а в Sub макрос считываем ее.

[Alexandr Zlobin]

Это я тоже сделал. Интересует принципиальная возможность передачи параметров.