Search Two Ranges To See If The Same String Exists

[p45cal]

try:

Dim oLooks As Range, oLooks2 As Range
Dim oCheckCell As Range, oCheckCell2 As Range
Set oLooks = Sheets("Weekly Shipped Details").Range("I5:I1000").SpecialCells(xlCellTypeConstants)
'--------------------------------------------------------------------------------------------------------------
' VLOOKUP AGAINST CONTAINER NUMBER TO SEE IF CONTAINER WAS ON LAST WEEKS REPORT. ---------------------------
With Sheets("Shipment Report.xls")
  .Select
  Set oLooks2 = .Range("I2:I1000").SpecialCells(xlCellTypeConstants)
End With
For Each oCheckCell In oLooks2.Cells
  For Each oCheckCell2 In oLooks.Cells
    If oCheckCell2.Value = oCheckCell.Value.Value Then oCheckCell.Offset(0, 1).Value = oCheckCell.Value Else oCheckCell.Offset(0, 1).Value = "#N/A"
  Next oCheckCell2
Next oCheckCell

To upload a file, click on Go Advanced and in the Attachments section below the editing area, click on Manage attachments and follow instructions.