How to delete individual rows according to criteria?

[Guest]

I want to delete specific rows if one field in the row contains a particular
alphnumeric string.

 

[Guest]

Sub Delete()
Dim myRange As Range
Dim lRow As Long
Dim lCol As Long
Dim aWS As Worksheet

Set aWS = ActiveSheet
lRow = aWS.Cells(aWS.Rows.Count, "A").End(xlUp).Row
Set myRange = Nothing
For i = 1 To lRow
lCol = aWS.Cells(lRow, aWS.Columns.Count).End(xlToLeft).Column
For j = 1 To lCol
If aWS.Cells(i, j).Value = "Your value" Then
If myRange Is Nothing Then
Set myRange = aWS.Cells(i, j)
Else
Set myRange = Union(myRange, aWS.Cells(i, j))
End If
Exit For
Next j
Next i

If Not myRange Is Nothing Then
myRange.EntireRow.Delete
End If

End Sub


Modify as needed.

 

[Guest]

Oops, I forgot an end if

Sub Delete()
Dim myRange As Range
Dim lRow As Long
Dim lCol As Long
Dim aWS As Worksheet

Set aWS = ActiveSheet
lRow = aWS.Cells(aWS.Rows.Count, "A").End(xlUp).Row
Set myRange = Nothing
For i = 1 To lRow
lCol = aWS.Cells(i, aWS.Columns.Count).End(xlToLeft).Column
For j = 1 To lCol
If lcase(aWS.Cells(i, j).text = "your value" Then
If myRange Is Nothing Then
Set myRange = aWS.Cells(i, j)
Else
Set myRange = Union(myRange, aWS.Cells(i, j))
End If
Exit For
End If
Next j
Next i

If Not myRange Is Nothing Then
myRange.EntireRow.Delete
End If

End Sub