Delete entire row when it meets the criteria

[LLT]

Dear Expert Out There,

I have created the macro to look for the word "closing balance" and then delete the row. But it run into error. Is there anything wrong with themacro below.

[If Sheets("Estmt").Range("B1:B10000") Like "*CLOSING BALANCE*" Then
EntireRow.Delete
End If

End Sub]

 

[VoG]

Try

With Sheets("Estmt")
    For i = 10000 To 1 Step -1
        If UCase(.Range("B" & i).Value) Like "*CLOSING BALANCE*" Then .Rows(i).Delete
    Next i
End With

 

[LLT]

Thanks very much, it works perfectly.