VBA Delete rows if cell contains specific text within a string

[gray_b]

Expanding on VBA Delete rows if cell contains specific text

1 - How can I make it search for say "Dog" within a string in a cell of say "My Dog plays games"

Changing - If (Cells(i, "B").Value) = "Dog"

to something like

If (Cells(i, "B").Value) = "*Dog*"

That does not work, but any ideas please.

Also
2 - To search for multiple words for say "Dog" "Cat" "Mouse" within a strings of say "My Dog plays games" and "My Cat is sleeping" and "Mouse has 4 legs"

Changing - If (Cells(i, "B").Value) = "Dog" or "Cat" or "Mouse"

That does not work, but any ideas please.

 

[Peter_SSs]

You're welcome. Glad that sorted the issue. Thanks for the follow-up.