Cell J1 to reflect activecell Row a2:a500

[Gordy99]

This is the code I put in per Rick R.:
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. I know I've done
something wrong. Must have something to do with the name of the worksheet.
Gordy

 

[JP]

This is sheet code, did you put it in the right place?

"Where do I paste the code that I want to use in my workbook"
http://www.rondebruin.nl/code.htm

--JP

 

[Gordy99]

I put the code into a VBA Sheet with the rest of the code for that workbook.

 

[Gordy99]

Thankyou sooooo much.
Gordy

This is sheet code, did you put it in the right place?

"Where do I paste the code that I want to use in my workbook"
http://www.rondebruin.nl/code.htm

--JP