Right click on the sheet tab that you want to react to the change in cursor
location and select view code. Paste the following code...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 2 And Target.Row <= 500 Then
Range("J1").Value = Cells(Target.Row, "A").Value
End If
End Sub
--
HTH...

Jim Thomlinson


"Gordy99" wrote:

want J1 to reflect the value of a:2:a500 as the cursor enters the row
But how?