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