It works for me. Did you run F1On before trying to use F1?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Ryk" wrote in message
oups.com...
I have made this from a old post, but it doesn't work, the help screen
comes up...any ideas why?

Option Explicit
Sub DownRow()
Range("G" & ActiveCell.row + 1).Select
End Sub
Sub F1On()
Application.OnKey "{f1}", "DownRow"
End Sub
Sub F1Off()
Application.OnKey "{f1}"
End Sub

Its modified from a Dave Pederson answer in another post.

Ryk