Delete rows based on specific value in cell

[ExcelBG]

Hi all

I`m trying to write macro for helping me to delete rows based on specific cell value.

My macro is:

Sub deleterows()

Dim rng As Range

Set rng = Sheets("Sheet1").Range("A1:A10")
 For i = rng.Count To 1 Step -1
  If Cells(i, 1).Value = 0 Then
  Rows(i, 1).EntireRow.Delete
  End If
 Next

End Sub

Every time when i try to run this macro it gives me error 1004. Could someone help me?

[bakerman2]

Sub deleterows()

Dim rng As Range, i As Long

Set rng = Sheets("Sheet1").Range("A1:A10")
 For i = rng.Rows.Count To 1 Step -1
  If Cells(i, 1).Value = 0 Then
  Rows(i).EntireRow.Delete
  End If
 Next

End Sub

[ExcelBG]

A lot of tnx bakerman 2!

It works perfect.

[bakerman2]

You're welcome.