Delete row if column contains string

I cannot get the following code to do what I want

Please Login or Register  to view this content.

I want to go through rows 4 to 517 and see if column M (= column 13) contains the string 'ADH'. If it does, nothing should happen. If it does not, the row should be entirely deleted.
The value in column M could be something like 'BBR, ADH, HE' or 'KFE' or 'BH, HE'.

Any help will be greatly appreciated.

Does it even get into the if statement? Place a break point inside the if statement to see if it even gets in there.

It does get in the If statement, but it doesn't remove lines consistently. It seems to remove lines at random.

This worked for me

Please Login or Register  to view this content.

with Cells(1,2).Value instead of "ADH" and the removal of rows where column M is empty.