Fastest way to search and delete

[rholdren]

Good morning. I am looking for a faster (better) way of searching and deleting. I have a small piece of code, listed below. It runs perfectly fine but sometimes the worksheet I run this against is huge and it takes a very long time to run. It can be anywhere from 50 rows to over a hundred thousand. Is there a faster way to do the below. I am open to complete change of direction if it works faster.

Thanks in advance for any help.

Sheets("COMPOSITE").Select

Dim cell As range


For Each cell In range("L:L")
If cell.Value = "DIAGS OR PROCS" Then
cell.EntireRow.Delete
End If
Next cell

 

[termeric]

Try

If Not a(i, 1) Like "DIAGS*" Then

much appreciated

 

[Fluff]

Glad to help & thanks for the feedback.