[RESOLVED] VBA Find search but skip a result

Hello I am looking to search my spread sheet and delete anything that says "Microsoft" except for "Microsoft Standard 2010".
The problem I am having is it's not skipping to the next instance when it reaches Microsoft Standard 2010. Any suggestions?

Code:

---

Set FoundCell = Range("E:E").Find(what:="Microsoft")
    Do Until FoundCell Is Nothing
            If FoundCell.Value <> "Microsoft Standard 2010" Then
                FoundCell.EntireRow.Delete
            End If
        Set FoundCell = Range("E:E").FindNext
    Loop

---

you should put foundcell as the after argument for findnext, if the row is not deleted

Thanks for the reply but with my original code it still deletes Microsoft Standard 2010, it doesn't just not skip to the next instance. My mistake on the original post.

If you have a large amount of data, this won't be the fastest way (making the Find...Findnext work WOULD be), but you could do something like:

Code:

---

Sub delRows()
    Dim i As Long
    Dim lastRow As Long
   
    lastRow = Range("e" & Rows.Count).End(xlUp).Row
   
    For i = lastRow To 2 Step -1
        If Range("e" & i).Value <> "microsoft standard 2010" And Left(Range("e" & i).Value, 9) = "microsoft" Then
            Range("a" & i).EntireRow.Delete
        End If
    Next i
End Sub

---

i would suggest you check if there are any additional spaces or other hidden characters, that makes the value not = to the "Microsoft Standard 2010", you could also try the text property of the cell, or use instr rather than =

if you want to post a sample workbook that demonstrates the problem, i am sure someone can assist you
note i can only open .xls, so if you are using a later version of excel, use saveAs .xls, and zip before attaching

Thanks for the help I ended up tweaking vbfbryce's code, but the reason it kept deleting office is because I was looking for "Microsoft Standard 2010" instead of the correct "Microsoft Office Standard 2010" so once I fixed that everything was smooth sailing. Thanks for all the help guys.

JO