Assuming you want to match with any cells in columns b and c this shoul
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