Hi all, use the code below to find "Total" to delete the row, Total is
part of the string & i am not sure how to change the code to find
"Total" even if it is part of a string ?

Sub DeleteTotalSuppSAP()
'
'
Dim i As Long
Dim iLastRow As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = iLastRow To 1 Step -1
If InStr(1, Cells(i, "G").Value, "total", vbTextCompare) Then
Rows(i).Delete
End If
Next i
End Sub

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***