Show value from specific column based on location of active cell

[Spuds Glorious Spuds]

Wondering if anyone could give me the best solution to show the value of the
cell in column R of the active row in cell a1? It would be even better if
cell A1 would only up date if the active cell was restricted to A2:AZ200

Many thanks

 

[Ron de Bruin]

Hi Strange name

Copy this event in the worksheet module

See
http://www.rondebruin.nl/code.htm


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("A2:AZ200"), Target) Is Nothing Then
Range("A1").Value = Cells(Target.Row, "R").Value
Else
Range("A1").Value = ""
End If
End Sub