VBA, если значение существует в диапазоне

If Not IsError(Application.Match(ValueToSearchFor, RangeToSearchIn, 0)) Then
    ' String is in range
BoomSlang Frikkie