Reply was made to your thread on MrExcell....
one way

Code
-------------------

Dim MyCell, MyRng, i As Integer, flg As Boolean

MyCell = Array("C9","C10","C11")
MyRng = Array("A1:A5","B1:B6","C1:C7")

For i = 0 To UBound(MyCell)
If Application.CountIf(Range(MyRng(i)),Range(MyCell(i )).VAlue) = 0 Then
flg = True
Exit For
End If
Next
If flg Then
MsgBox "Check the value in cell " & MyCell(i)
End I
-------------------

--
jindo
-----------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...fo&userid=1313
View this thread: http://www.excelforum.com/showthread.php?threadid=55070