This deletes rows with 0
Sub deleteifzeroonanyrow()
For i = 1 To 10 ' last row to look in
lc = Cells(i, Columns.Count).End(xlToLeft).Column
If Application.CountIf(Range(Cells(i, 1), _
Cells(i, lc)), 0) > 0 Then Rows(i).Delete
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"tiff" <(E-Mail Removed)> wrote in message
news:F907867E-DA5A-46DB-B201-(E-Mail Removed)...
> I'm working on an excel sheet and it has rows that have 0's throughout it.
> I'm wondering if there is a way to delete all the rows that contain 0's
> throughout the sheet without having to go to each row individually.