
Application.OnKey "{ESC}", ""
|
Sub NoChange()
i = 0 ' does nothing, used by NoEsc macro
End Sub
Sub NoEsc()
Application.OnKey "{ESC}", "NoChange"
' Goes to procedure NoChange if escape key hit
End Sub
Sub YesEsc()
Application.OnKey "{ESC}"
' Turns on the keyboard escape key.
End Sub |
