thanks Simon, I'll try it. I appreciate your help.

"Simon Lloyd"
wrote in message
...

If i understood you correctly this should work!
Regards,
Simon

Sub findit()
Dim mycell
Dim rng As Range
Set rng = Range("A:A")
For Each mycell In rng
If mycell.Offset(0, 2).Value = mycell.Value Then
mycell.Offset(0, 1).Value = mycell.Offset(0, 3).Value
End If
Next
End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=552076