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