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

What are you trying to do and why

Regards,
Peter T

"John" <(E-Mail Removed)> wrote in message
news:7E042928-D2DE-4AB7-94D7-(E-Mail Removed)...
> 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
>
>

Maybe
http://www.rondebruin.nl/key.htm


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"John" <(E-Mail Removed)> wrote in message news:7E042928-D2DE-4AB7-94D7-(E-Mail Removed)...
> 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
>
>