UDF for finding text in cell from a list of text

I need a UDF to determine if a cell has any of several words from a list and return one phrase if true and another if false

Example:
A1: The big red apple tree
A2: The big apple tree

B1: Color
B2:Blue
B3:Red
B4: Yellow
etc.

so for A1 it would look for any of the words in column B and return "COLOR" since Red is in A1 and in column b

For A2 it would return "NO COLOR", since none of the words in column B are in the string in A2.

Thanks in advance,

Tom