Using the following VBA code I get an error message "The macr
"C:\data\MSExcel\statement.xls'!JumpToA14' cannot be found.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("$B9:$C$9"), Range(Target.Address)
Is Nothing Then
'To turn on enter key macro
Application.OnKey "~", "JumpToA14"
Application.OnKey "{Enter}", "JumpToA14"
'To turn off enter key macro
Else
Application.OnKey "~"
Application.OnKey "{Enter}"
End If
End Sub

Private Sub JumpToA14()
'This line seems to work better Range("A14").Activate
Application.Goto Reference:=Range("A14")
End Sub

It works great if I put the Private Sub JumpToA14() in Module 1. Doe
anybody know how I can make it work by keeping both subs unde
Worksheet selection change event? (I really want the OnKey on th
Worksheet selection change event)

Thanks a million, Mikebur

--
mikebur
-----------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...fo&userid=2458
View this thread: http://www.excelforum.com/showthread.php?threadid=40099