Very Computer

I'm trying to write a macro to delete all rows in a worksheet when the sum of
the values in the rows equals zero. I have a file with several tabs (one for
each department). Each row represents an account number. Each tab has all the
same account numbers. Not all of the account numbers have values. To upload the
accounts into our mainframe, I need to eliminate all the unused accounts. Hence
the need to delete rows. Any help will be appreciated.
Thanks.
Warren

Be aware that a procedure that deletes rows if "the sum of the values in the
rows equals zero" will also delete rows which sum to zero but which contain
non-zero values (e.g., the sum of +20 and -20 is zero).  

Select a range of cells in a single column for the rows you want to evaluate,
then run this code:

Sub DeleteZeroRows()
  Dim lastRow As Long, R As Long
  Application.ScreenUpdating = False

  lastRow = Selection.Row - 1 + Selection.Rows.Count
  For R = lastRow To Selection.Row Step -1
    If Application.Sum(Rows(R)) = 0 Then Rows(R).Delete
  Next R

End Sub

Quote:>I'm trying to write a macro to delete all rows in a worksheet when the sum of
>the values in the rows equals zero. I have a file with several tabs (one for
>each department). Each row represents an account number. Each tab has all the
>same account numbers. Not all of the account numbers have values.