Sub deleterows()
Const columnBalance = "A"
Dim rngBalance As Range
Dim i As Long

Set rngBalance = Range(Cells(1, columnBalance), _
Cells(Rows.Count, columnBalance).End(xlUp))
'Work backwards from bottom to top when deleting rows
Application.ScreenUpdating = False
With rngBalance
For i = .Rows.Count To 1 Step -1
If .Cells(i) < 0 Then
.Cells(i).EntireRow.Delete
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

"Giggly4g" wrote:

I'm trying to isolate negative balances in a very large wookbook. Is there a
way to easily locate the positive balances and delete the rows containing
them (leaving only the negative balances)? I've tried to mark with
conditional formatting for 0 but the column titles get marked, too. Any
assistance would be greatly appreciated.