For i = Cells(Rows.Count,"A").End(xlUp).Row Step -1
If WorksheetFunction.CountIf(Rows(i & ":" & i), "<0") 0 Then
Cells(i,"A").Entirerow.Delete
EDnd If
Next i

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Sean" wrote in message
...
I have a spreadsheet imported from accounting software that shows all
customer activity in the last year by month.Column B through AA contains
the
dollar amounts paid by the customer. What I want to do is delete any rows
that have zero balances in every column. If a row has any dollar amount
over
zero then I want to keep that row. I hope this makes sense. Someone please
help.

--
______________________________
Thank you, Sean
Artist/Production Manager
Please visit us at www.oatesflag.com
502-267-8200
502-267-8246 fax