Search Two Ranges To See If The Same String Exists

[xander1981]

Bakerman, thanks for your help. I have now resolved this with a vlookup workbookfunction in a loop (below) I think the main problem was defining the range to check.

On Error Resume Next
   Dim result As Variant
For Each oCell In Range(Range("A2"), Range("A1000").End(xlUp))
    result = Application.VLookup(oCell, Workbooks("Shipment Report " & Year(GetDateRangeTo) & ".xls").Sheets("Weekly Shipped Details") _
    .Range("I5:I1000").Cells, 1, 0)
        oCell.Offset(0, 2).Select
        Selection.Value = result
Next