I think it might have to be a macro!
Try this in the sheet's code module:Private Sub
Worksheet_SelectionChange(ByVal Target As Range)
Static lastcell As Range
If lastcell Is Nothing Then Set lastcell = ActiveCell
If Target.Count = 1 Then
If Not Intersect(Target, Range("C1:C10")) Is Nothing And Not
Intersect(lastcell, Range("A1:A10")) Is Nothing Then
lastcell.Value = Target.Value
End If
Set lastcell = Target
End If
End Sub
It worked here.
--
p45cal
*p45cal*
------------------------------------------------------------------------
p45cal's Profile:
http://www.thecodecage.com/forumz/member.php?userid=558
View this thread:
http://www.thecodecage.com/forumz/sh...d.php?t=127686