One simplified way.

Sub findem()
For Each c In Range("b2:b6")
If Range("a2:a22").Find(c) Is Nothing Then MsgBox c & "not there"
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Sharon" wrote in message
...
I have two columns of names, original list vs new list. I want to find the
names in the new list that do not appear in the original lis.t