Quote Originally Posted by unmarkedhelicopter
=if(find("Beef",A2)+find("Chicken",A2)+find("Duck",A2)+find("Fish",A2)>0,"M eat Present","No Meat")

I don't understand why there is a space in "Meat Present" cos I've checked twice, there's not ! ...
Thanks for the reply! I tried it out and it returned me a "#VALUE!" error. It turns out that if the first value - in this case, Beef - is not found, a #VALUE! error is returned. Subsequently, even if there are any found values, it'll still return a #VALUE! error.

What I'm doing for the time being is this:

[vba] With ActiveSheet
For Counter = 2 To 10

TextLength = Len(.Cells(Counter, 1).Value)

For TextCounter = 1 To TextLength
If Mid(.Cells(Counter, 1).Value, TextCounter, 1) = "B" Then
.Cells(Counter, 2).Value = "Meat present"
ElseIf Mid(.Cells(Counter, 1).Value, TextCounter, 1) = "C" Then
If Mid(.Cells(Counter, 1).Value, TextCounter + 1, 1) = "h" Then
.Cells(Counter, 2).Value = "Meat present"
End If
'
'
'
'
'So forth
Next TextCounter
Next Counter
End With
[/vba]
What it does basically is to search for a 1st letter of a particular word and then returns the value accordingly. It gets the job done but the number of nested If..Else statements are numerous and complex, as there are many words that begins the same way for my real data set.

Hence, I'm looking to see if there's a simpler way to achieve the same outcome.