Okay, here's something I have.....still not working...but perhap
someone else in here might be able to point where it's not working.


Sub Matching()
Dim A As Range, B As Range, C As Range, D As Range
Set C = Range("C2:C10")
Set B = Range("B2:B20")

For i = 2 To C.Rows.Count
For j = 2 To B.Rows.Count
If C.Cells(i, j) = B.Cells(i, j) Then
A.Cells(i, j).Select
Selection.Copy
D.Cells(i, j).Select
ActiveSheet.Paste
End If
Next j
Next i
End Sub


The error is Object variable or With block variable not set.

ljCharli

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