I have a worksheet with 2 columns and 21585 rows.
I want to delete all of the rows where there is a value of "0" in column B.
Any suggestions?

Thanks,
Steve

NEVER MIND, I FIGURED IT OUT

I just filtered for "0", selected all the rows, then deleted them.

Maybe

Sub Macro2()
lastrow = Cells(Rows.Count, "B").End(xlUp).Row
For x = lastrow To 1 Step -1
If IsNumeric(Cells(x, 2).Value) And Cells(x, 2).Value = 0 Then
Rows(x).EntireRow.Delete
End If
Next
End Sub

Mike

"sek0910" wrote:

> I have a worksheet with 2 columns and 21585 rows.
> I want to delete all of the rows where there is a value of "0" in column B.
> Any suggestions?
>
> Thanks,
> Steve