This is the code I put in:
Private Sub worksheet_selectionchange(ByVal target As Range)

Range("j1").Value = Cells(ActiveCell.Row, 1).Value
End Sub

Can't find it on the macro list and I don't see it running.
Gordy


"Rick Rothstein (MVP - VB)" wrote:

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.