Search Two Ranges To See If The Same String Exists

[bakerman]

Sheets("Shipment Report.xls").Select

Is this really the sheetname or the workbookname where the other sheet is in ?

Sub tst()
    Dim sq
    sn = Sheets("Weekly Shipped Details").Columns(9).SpecialCells(xlCellTypeConstants)
    sn2 = Sheets("Shipment Report").Columns(9).SpecialCells(xlCellTypeConstants)
    ReDim sq(1 To UBound(sn2))
    For i = 1 To UBound(sn2)
        For ii = 1 To UBound(sn)
            If sn(ii, 1) = sn2(i, 1) Then
                sq(i) = sn2(i, 1): Exit For
            Else
                sq(i) = "#N/A"
            End If
        Next
    Next
    Sheets("Shipment Report").Range("J2").Resize(UBound(sn2)) = WorksheetFunction.Transpose(sq)
End Sub

Also you have several questions posted where you didn't give a final response ???