Private Sub Worksheet_Activate()
[COLOR=#00ff00]'keypad Enter key[/COLOR]
Application.OnKey "{ENTER}", "EnterKey"
[COLOR=#00ff00]'keyboard Enter key[/COLOR]
Application.OnKey "~", "EnterKey"
Application.OnKey "{TAB}", "TabKey"
End Sub
Private Sub Worksheet_Deactivate()
[COLOR=#00ff00]'resets the key function[/COLOR]
Application.OnKey "{ENTER}"
Application.OnKey "~"
Application.OnKey "{TAB}"
End Sub