Try somethink like the following (sustituting) the names of your ranges.
List1 contains all items. List2 in the "Out of stocK" list.
Sub CheckStock()
Dim oCell As Range
For Each oCell In Range("List1")
If IsError(Application.Match(oCell, Range("List2"), 0)) Then
oCell.Offset(0, 1) = "OK"
Else
oCell.Offset(0, 1) = "Out of stock"
End If
Next
End Sub
------------------------------------------------
~~ Message posted from
http://www.ExcelTip.com/
~~View and post usenet messages directly from
http://www.ExcelForum.com/