is there any chance to find a word in for example a1 in b1

[inspectoRQ]

have a nice day all. i wanna know if it is possible to find word situated in a1,if that word in b1

for example

a1
have a nice day all to find if any of these word (have,nice, day, all)in b1

b1 contains

i have a nice t-shirt. if b1 contains any word in a1 the "wooow that`s great!! else ""

 

[machopicho]

Can you explaine bette the results you want to achieve?

A1 contains:
have a nice day all

B1 contains::
i have a nice t-shirt

Each cell contains "have a nice" and then "wooow that`s great!!" have to be shown in A2?
Exact?

 

[inspectoRQ]

Yes i meant it.

if b1 contains any word of a1,then else not

for example

a1

this is book is red

b1

if b1 contains ,"this", or "book" or "red" then ok else not

 

[machopicho]

I have an idea but working only aren't presents punctuation.
Its' ok?

 

[machopicho]

If punctuation is notpresent try this:

Sub test()
memo = Split(Range("B1"), " ")
For i = LBound(memo) To UBound(memo)
Set check = Range("A1").Find(memo(i), LookIn:=xlValues)
If Not check Is Nothing Then
Range("A2") = "Wooow that`s great!!"
If Range("A2") = "Wooow that`s great!!" Then Exit Sub
Else
Range("A2") = "Sorry!!"
End If
Next
End Sub