Application.Onkey

J

John

Hi,

Is there a way i can shorten:

With Application

.OnKey "{DOWN}"
.OnKey "{BS}"
.OnKey "{END}"
.OnKey "{HOME}"
.OnKey "{UP}"
.OnKey "{TAB}"
.OnKey "{PGDN}"
.OnKey "{PGUP}"
.OnKey "{RIGHT}"
.OnKey "{LEFT}"
.OnKey "{DELETE}"
.OnKey "{ESC}"
.OnKey "^{DEL}"
.OnKey "^{INSERT}"
.OnKey "^{F1}"
.OnKey "^{F2}"
.OnKey "^{F3}"
.OnKey "^{F4}"
.OnKey "^{F5}"
.OnKey "^{F6}"
.OnKey "^{F7}"
.OnKey "^{F8}"
.OnKey "^{F9}"
.OnKey "^{F10}"
.OnKey "^{F11}"
.OnKey "^{F12}"

End With

I've tried to use a reference to each of the keystrokes {DOWN} {BS} etc in a
sheet array Tbl_Keys and reference this in VB using:

Mykey = " ""{" & Application.WorksheetFunction.Index(Rng, I, 1) & "}, """
Application.OnKey Mykey

but i when i try to run it i get the message "Method 'Onkey of
Object_Application' failed.

Any ideas would be great.
Thanks
John
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Help repeating formulas with skips 1
Setting the number of Tabs in a Tab Control 0
Too many IF functions 3
Smaller VBA? Loop or Offset? 3
Interpolation Problem 2
Extention a formula to a new location 1
IF Question 2
Ongoing Issue - I have tried to clarify so that you understand 7

Top