excel - 特定のデータを含む Excel VBA の行全体を削除する

Question

最初のセルに値「THD」を含む行全体を削除しようとしています。コンテンツは "THD_C_L10.0W5.0H15.0P7.5" のように見えますが、THD は常に存在します。

次のループで試しました：

For i = 1 To ActiveSheet.UsedRange.Rows.Count
    If InStr(1, LCase(Tabelle2.Cells(i, 1)), "THD") <> 0 Then
        Rows(i).EntireRow.Delete
    End If
Next

しかし、残念ながら機能していません。何か案は？