Delete Rows with a Specific Set of Letters

[Guzzlr]

Hello All,
I have the following:

With Sheets("B&M")
      With .Range("K2", .Range("K" & Rows.Count).End(xlUp))
         .AutoFilter 1, "=ZZ"
         .Offset(1).SpecialCells(xlVisible).EntireRow.Delete
      End With
      .AutoFilterMode = False
End With

This is not working...
What I am trying, is to find any entries, with ZZ in a text string, starting in cell K2, to the bottom, and delete all rows that have the letters ZZ in column K.

For example:
If cell K762 has: HK4-ZZ-OP-9_week, then the row of 762 would be deleted. and so on.
However, not all cells will have HK4-ZZ-OP-9_week. Every cell that has ZZ will have different text.
Also, ZZ may not always be all caps. sometimes, it may be lower case as well.
Thanks for the help

 

[Fluff]

How about

With Sheets("B&M")
   .Range("K2", .Range("K" & Rows.Count).End(xlUp)).AutoFilter 1, "*ZZ*"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False
End With

 

[Rick Rothstein]

Here is another code snippet that does not use AutoFilter which should also work...

  Sheets("B&M").Columns("K").Replace "*ZZ*", "#N/A", xlWhole, , False, , False, False
  On Error GoTo NoZZ
  Sheets("B&M").Columns("K").SpecialCells(xlConstants, xlErrors).EntireRow.Delete
NoZZ:

 

[Guzzlr]

How about

With Sheets("B&M")
   .Range("K2", .Range("K" & Rows.Count).End(xlUp)).AutoFilter 1, "*ZZ*"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False
End With

OK...This is Working, Thank you

 

[Fluff]

Glad we could help & thanks for the feedback.