You really can't disable all of Excel's shortcut keys.

Maybe this <g

Sub Disable()
Dim K, Key, Key2, I As Integer
On Error Resume Next

For Each Key In Array("+", "^", "%", "+^", "+%", "^%", "+^%")

K = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
"{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
"{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
"{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")

For Each Key2 In K
Application.OnKey Key & Key2, ""
Next Key2

For I = 0 To 255
Application.OnKey Key & Chr$(I), ""
Next I

For I = 1 To 15
Application.OnKey Key & "{F" & I & "}", ""
Application.OnKey "{F" & I & "}", ""
Next I
Next
End Sub


Sub Enable()
Dim K, Key, Key2, I As Integer
On Error Resume Next

For Each Key In Array("+", "^", "%", "+^", "+%", "^%", "+^%")

K = Array("{BS}", "{BREAK}", "{CAPSLOCK}", "{CLEAR}", "{DEL}", _
"{DOWN}", "{END}", "{ENTER}", "~", "{ESC}", "{HELP}", "{HOME}", _
"{INSERT}", "{LEFT}", "{NUMLOCK}", "{PGDN}", "{PGUP}", _
"{RETURN}", "{RIGHT}", "{SCROLLLOCK}", "{TAB}", "{UP}")

For Each Key2 In K
Application.OnKey Key & Key2
Next Key2

For I = 0 To 255
Application.OnKey Key & Chr$(I)
Next I

For I = 1 To 15
Application.OnKey Key & "{F" & I & "}"
Application.OnKey "{F" & I & "}"
Next I
Next
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Chip Pearson" wrote in message ...
John,

You really can't disable all of Excel's shortcut keys.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"John Whelan" wrote in
message ...
How do I disable Shortcut Keys ?