hello,

i wrote a simple code to filter out the zeros in three different
columns. for instance:

loanaccount balance balance2 cashbal
aaaaa $4567.89 $0.00 $0.00
ggghh $0.00 $3456.71 $0.00
eeeeei $0.00 $0.00 $0.00
rrrrrr $0.00 $0.00 $8760.99
kmlno $0.00 $0.00 $0.00

so basically loan accounts aaaaa, ggghh, and rrrrrr should be my end
result but neither three loans appear after i run my macro. did i
write the for counter wrong? what did i leave out?

thanks in advance.

here is the code--

Sub FilterZerosOut()
ActiveWindow.Zoom = 85
Range("A1").Select
ActiveCell.FormulaR1C1 = "INTERNAL #"
Range("B1").Select
ActiveCell.FormulaR1C1 = "OBLIGOR #"
Range("C1").Select
ActiveCell.FormulaR1C1 = "LOAN ACCOUNT"
Range("D1").Select
ActiveCell.FormulaR1C1 = "BALANCE"
Range("E1").Select
ActiveCell.FormulaR1C1 = "BALANCE2"
Range("F1").Select
ActiveCell.FormulaR1C1 = "CASHBALANCE"
Range("G1").Select
ActiveCell.FormulaR1C1 = "NEXT INT DATE"
Rows("1:1").Select
Selection.Font.Bold = True
Selection.Interior.ColorIndex = 15

'Sort by = 0.00
Range("D2").Select
If ActiveSheet.AutoFilterMode Then

Else
Cells.AutoFilter
End If


For Counter = 4 To 6
Cells.AutoFilter field:=Counter, Criteria1:="=0" 'not equal to
zero
Next Counter

End Sub