VBA: Slet række ved bestemt værdi

Jeg ønsker at slette hele rækken, hvis værdien 0 findes i rækken. Jeg har selv forsøgt med nedenstående, men det virker ikke:

Sub DeleteRows()
Dim Rente As Range
Set Rente = Range("A1:A3054")
Dim RowNum As Integer

For Each RowNum In Rente
  If Rows(RowNum).Value = "0" Then
          Rows(RowNum).Delete
  Else
  ????
  End if
Next


End Sub