Excel Zeilen ausblenden mit Makro

[neok]

Hallo,

ich würde gern Zeilen die " #WERT! " enthalten ausblenden und das mit hilfe von einem Makro. Ich habe es so probiert

Sub ZeilenAusblendenWenn0()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
  If Zelle.Value = "#WERT!" And Rows(Zelle.Row).Hidden = False _
     Then Rows(Zelle.Row).Hidden = True
Next Zelle
End Sub

Leider kommt dann Laufzeitfehler 13: Typen unverträglich. Kann mir jemand sagen was ich ändern muss?