VBA to delete entire row if cell matches the exact whole word

Hi All,
Currently I am using the below code to delete the entire row if the mentioned strings matches in the cell value. I need a modification whereas, the row needs to be deleted if the cell matches the exact word.

For example: If column B consist words like "test" and "latest" the code only needs to delete the word "test" leaving "latest".

Thanks.

strWords = "zz,*test*,tst"    For lng = LBound(Split(strWords, ",")) To UBound(Split(strWords, ","))
    Do
    On Error Resume Next
    rng.EntireRow.Delete
    Set rng = Cells.Find(What:=Split(strWords, ",")(lng), LookAt:=xlPart, MatchCase:=True)
    Err.Clear: On Error GoTo 0
    Loop Until rng Is Nothing
    Next lng

Re: VBA to delete entire row if cell matches the exact whole word

Hi Jaslake

No luck... It's still removing the word "latest" also.

Quote from jaslake;786837

Hi CodeNerd

Perhaps remove the Wildcard from in front of *test* becoming test*

Re: VBA to delete entire row if cell matches the exact whole word

Hi Jaslake,

I have attached the sample files as you requested. In the attached excel except 4th and 5th row I want everything else to get deleted. So, whatever cell that contains the word "test" or "tst" needs to get deleted.