Sure! Try the new macro below

'---------------------------------------------------------------
Sub finder(
Dim cell As Object, c As Range, counter As Singl
counter =
With Columns(1
For Each cell In Application.Intersect(Columns(3), ActiveSheet.UsedRange).Cell
If cell.Value < "" The
Set c = .Find(cell.Value, LookIn:=xlValues
If Not c Is Nothing The
cell.Value = c.Offset(0, 1).Valu
Els
Columns(7).Cells(1).Offset(counter, 0).Value = cell.Valu
counter = counter +
End I
End I
Nex
End Wit
End Su
'---------------------------------------------------------------

Regards
Edwin Ta

http://www.vonixx.co


----- excelguru wrote: ----

Thank-You!!! for the macro works beautifully

One more request for the same proble
===========================

suppose all the values in column C do not match with those in colum
A

can the script write out those values from column C , which it did no
find in column A , into another column G

Thanks for all the help.


--
Message posted from http://www.ExcelForum.com