Deleting rows that contain string

[dan_za]

Hi.
I need a method that delete rows that contains a string ("class" in my case)
the problem is that this code is slow. i need to run it on 15 sheets at least.
Is there a faster way to do this ?
Thanks
Here is my code:

Sub DeleteEmptyRows(wsheet As Worksheet)
    Dim calcmode As Long
    Dim ViewMode As Long
    Dim myStrings As Variant
    Dim FoundCell As Range
    Dim I As Long
    Dim myRng As Range
    Dim sh As Worksheet

    With Application
        calcmode = .Calculation
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
    End With

  
    With wsheet
    Set myRng = .Range(.Cells(1, 1), .Cells(wsheet.UsedRange.Rows.Count,7))
  End With
    'Add more search strings if you need
    myStrings = Array("class")
  With myRng
 For I = LBound(myStrings) To UBound(myStrings)
                Do
                    Set FoundCell = myRng.Find(What:=myStrings(I), _
                                               After:=.Cells(.Cells.Count), _
                                               LookIn:=xlFormulas, _
                                               LookAt:=xlWhole, _
                                               SearchOrder:=xlByRows, _
                                               SearchDirection:=xlNext, _
                                               MatchCase:=False)
                    If FoundCell Is Nothing Then
                        Exit Do
                    Else
                        FoundCell.EntireRow.Delete
                    End If
                Loop
            Next I
        End With
End Sub 

[arthurbr]

Hi,
mudraker helped me out with something similar http://www.excelforum.com/excel-prog...ed-values.html

HTH

[pboltonchina]

I use this, but the information I am looking for is in column H and I want to delete all rows containg KG. You should be able to adapt this to suit.

[DonkeyOte]

Hi Paul - welcome to ExcelForum.com

I think the question boils down to whether or not the value to be found always resides in one column or in a few specific columns... if so there are other methods even than those listed which would negate the need for iteration altogether... I often prefer to insert temp R1C1 formulae into the last column which in turn permit use of SpecialCells and deletion of all rows simultaneously but if the formulae needs to reference large ranges it may not be viable.

in short - more info I think... also are you likely to have more than 1 search string (as inferred via your use of Array)

[dan_za]

Hi all,
Thanks for the replies, i will be more specific
I want do delete rows that contains this string..it's not important to me if there are few in the same row.
I'm not looking on how to do it,i'm looking for the fastest way to do it..
Thanks