Does this help ?
I added a wildcard to the value to lookup and col changed to "b" in Roy's code
Option Explicit
Sub delAll()
Dim lRows As Long
Dim sFormula As String
Dim i As Long
Dim rDelete As Range
'count the rows to operate on
lRows = Cells(Rows.Count, "b").End(xlUp).Row
For i = 2 To lRows
If Cells(i, "b").Value Like "*..." Then
If rDelete Is Nothing Then
Set rDelete = Cells(i, "b")
'build range to delete
Else
Set rDelete = Union(rDelete, Cells(i, "b"))
End If
End If
Next i
' delete any matched rows
If Not rDelete Is Nothing Then rDelete.EntireRow.Delete
End Sub
Bookmarks