removing rows featuring certain words (wildcards needed)

Private Sub DeleteRows()
Application.ScreenUpdating = False
Dim c As  Range 
Dim SrchRng 
Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp)) 
Do 
Set c = SrchRng.Find("extra", LookIn:=xlValues) 
If Not c Is Nothing Then c.EntireRow.Delete 
Loop While Not c Is Nothing
Application.ScreenUpdating = True
End Sub

As per the page I found the code from you could set the value you search for and delete any row containing by using an InputBox (so you could delete any rows containing text you specify without having to edit the code):

Sub DeleteRows() 
Dim c As  Range 
Dim SrchRng As Range 
Dim SrchStr As String 
Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp)) 
SrchStr =  InputBox("Please Enter A Search String") 
Do 
Set c = SrchRng.Find(SrchStr, LookIn:=xlValues) 
If Not c Is Nothing Then c.EntireRow.Delete 
Loop While Not c Is Nothing 
End Sub

I know it's probably not what you're looking for but the easiest to work out way around your problem. I take no credit for this code, a simple bit of googling found it!

~Liam