I have a problem with compare variable (text-word) with
contents cell (text), textbox , which have many words.
If any cell, textbox contain word like variable (text)
then execute another macro.

Code below don't produce effect:

Sub compare()

Dim word as String
Dim words as String

If word Like words Then
'another macro
End if

End sub

Is there an easy solution of this problem?

Best regards
Mark

I use Like operator quite a bit and it works quite well. Your code seems OK
so if it doesn't work look into what you have in 'word' and 'words'. You
can also try InStr:

word = "banana"
words = "banana,apple,orange"
if instr(words,word & ",") then call Fruity(word)

if words like "*" & word & "*" then call fruity(word) 'works as well

"Mark" wrote in message
...
I have a problem with compare variable (text-word) with
contents cell (text), textbox , which have many words.
If any cell, textbox contain word like variable (text)
then execute another macro.

Code below don't produce effect:

Sub compare()

Dim word as String
Dim words as String

If word Like words Then
'another macro
End if

End sub

Is there an easy solution of this problem?

Best regards
Mark