How to fix cell.entirerow.delete?

I am checking cells in a column for a value and when found I do cell.entirerow.delete but my for
each loop must be messing up because some rows are skipped. How done?

for each mycell in myrange
if mycell.value = "delete" then
mycell.entirerow.delete
end if
next

Guy,

you are messing up the range definition with each delete. You need to work
down from the end of the range. e.g.

lRows = MyRange.Rows.Count
For lCounter = lRows to 1 Step -1
if MyRange(lCounter,1).Value = "delete" Then _
MyRange(lCounter,1).EntireRow.Delete
Next lCounter

Robin Hammond
www.enhanceddatasystems.com

"guy" <[email protected]> wrote in message
news:[email protected]...
>I am checking cells in a column for a value and when found I do
>cell.entirerow.delete but my for
> each loop must be messing up because some rows are skipped. How done?
>
> for each mycell in myrange
> if mycell.value = "delete" then
> mycell.entirerow.delete
> end if
> next