ganze Zeile löschen

ich such über eine ForEach- Schleife einen Begriff. wenn der gefunden wurd, möchte ich die gesamte Zeile löschen und zwar so wie mit dem Excel- Befehl: Bearbeiten- Zellen Löschen.

kann mir jemand sagen wie hier der Code lautet?

Hier mein Code, der nicht funktioniert:

Dim such As String

such = txtArt.Value

For Each c In Sheets("Testliste").Range("C21:C1000")
If c.Value = such Then
Rows(c).Delete
Exit For
End If
Next c

Vielen Dank im voraus

Michael