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/