By assigning the shortcut a null macro:

Sub KillCtrlA()
Application.OnKey "^a", ""
End Sub

to reset:

Sub AllowCtrlA()
Application.OnKey "^a"
End Sub

--
Jim Rech
Excel MVP
"John Whelan" wrote in message
...
How do I disable Shortcut Keys ?