Quote:
|
if the script from the webpage i provided earlier can just be altered to remove rows instead of cells, that's really all i need.
|
What you've pointed out in post #8 pretty much contradicts that, but here you go
Code:
Sub RowDoesNotContain()
Dim x As Long, ContainWord As String
'What phrase do you want to test for?
ContainWord = "Magic"
With Sheets("Sheet1") '<~~~ change as necessary
For x = .Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Not Rows(x).Find(ContainWord) Is Nothing Then Rows(x).Delete
Next x
End With
End Sub