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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Spuds Glorious Spuds" <Spuds Glorious wrote in message
...
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