Macro to delete row if cell <> value...

Hey guys,

I need a short and simple macro that deletes any row that contains "*EDS*" in column A...this is the code I am using but it doesnt seem to be working correctly, it hangs up on line 2...

    
Application.ScreenUpdating = False
    With Sheets("IDs in IBM OU").Range("A1", Range("A" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:="*EDS*"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
    Application.ScreenUpdating = True

Do the cells in column A only contain either *EDS* or no *EDS*? or are you trying to search through a paragraph of text for each cell in column A, and only delete if within that paragraph of text *EDS* shows up?

Jason

No, the cells will have various information....EDS will just be in the middle of a lot of text.

Example:

HTML Code: 

FinalRow = Cells(Rows.Count, 56).End(xlUp).Row
For i = FinalRow To 1 Step -1

If Cells(i, 1).Value = "*EDS* Then
Cells(i,1).Delete
End If

Next i

Jason, that does work - however I had to run it 3 times in order for it to delete all the EDS rows...
For some reason it is not catching them all in one run...i am going to try it a couple more times

hmm it shoudlve deleted all (it worked for me), but anyways see modified post I fixed your code for a even simpler solution

I appreciate all your help with this

I managed to work around it and add it 3 ways...not the best way to do it, but it works lol -

Also one more question, what is the code change for application.match if say I didnt want it to match "*EDS*". If that makes sense...

So logic would be: If it does not equal "*EDS*" then delete entire row.

I cannot upload my sheet as it has info on it I dont want out...

The sheet has 365 rows but it varies weekly and no blanks.