Very Cool! I'll have to give this one a try too.
Thanks a lot!
"chandlm " wrote in message
...
Assuming you want to match with any cells in columns b and c this should
do what you want.
Sub find_match()
A = 1
Do Until IsEmpty(Range("a" & A).Value)
Range("b65536").End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Select
'Columns("B:B").Select
For Each cell In Selection
If Range("a" & A).Value = cell Then
Range("d" & cell.Row).Value = Range("a" & A).Value
GoTo here
End If
Next
Range("c65536").End(xlUp).Select
Range(Selection, Selection.End(xlUp)).Select
For Each cell In Selection
If Range("a" & A).Value = cell Then
Range("d" & cell.Row).Value = Range("a" & A).Value
GoTo here
End If
Next
he
A = A + 1
Loop
End Sub
Let me know if you need it do anything else
Cheers,
---
Message posted from http://www.ExcelForum.com/