I think this worksheet code does what you want...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("J1").Value = Cells(ActiveCell.Row, 1).Value
End Sub

Rick


"Gordy99" wrote in message
...
would like cell J1 to reflect the row the activecell is in with the value
of
column A.