Laufzeitfehler bei Zeilen mit Inhalt Null löschen

ich möchte in einem Tabellenblatt alle Zellen mit Inhalt 0 löschen. Ich verwende hierfür ein Makro wie es schon in diesem Forum vorgeschlagen wurde, nämlich:

Dim rngCell As Range
For Each rngCell In Range("A1:AG200")
If rngCell.Value = 0 Then
rngCell.Delete
End If
Next rngCell

Excel zeigt mir immer einen "Laufzeitfehler '13' - Typen unverträglich" an und zeigt beim Testen des Makros den Fehler in der Zeile "If rngCell.Value = 0 Then" durch gelbe Markierung an.

Wer kann mir sagen, wo der Fehler steckt?
Michael