I would do this

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column 61 Then
Worksheets("sheet1").Range("W12").Value = _
.Cells(Target.Row,61).Value
End If

End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"famdamly" wrote in
message ...

Thanks for your help Bob, I really do appreciate it.

In sheet1 in cell w12 or R12,C23


--
famdamly
------------------------------------------------------------------------
famdamly's Profile:
http://www.excelforum.com/member.php...o&userid=29382
View this thread: http://www.excelforum.com/showthread...hreadid=519240