excel sheet row removal

[tonyvee1973]

Hi
Trying to remove entire rows in excel2010 if row E contains 11111.
Tried the script below as asks for the number but doesnt seem to ork.
Any ideas as to why this would be?
Thanks


Sub DeleteRows()
Dim c As Range
Dim SrchRng As Range
Dim SrchStr As String

Set SrchRng = ActiveSheet.Range("E1", ActiveSheet.Range("E45511").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

 

[SkipVought]

hi,

Turn on the AutoFilter

Set the column E filter to 11111

Select all VISIBLE ROWS OF DATA

Right-Click - DELETE

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[tonyvee1973]

So simple, thanks Skip.
Been working with different Macro's on the 50000+ line sheet for days now and think i've been brainwashed with them - Forgot to keep things simple.
Appreciate the help

 

[SkipVought]

Oh I did forget to mention...

Clear the AutoFilter

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}