VBAで000から始まる行を削除したい

Question

VBAでH列の000から始まる行を削除しようと以下のコードを試しましたが、うまく動きません。
エラーもでないのでどこが間違っているのかも分からない状態です。
初歩的な質問で申し訳ございませんが何卒宜しくお願い致します。

    Dim LastRow
    Dim r 

    LastRow = ws2.Range("A" & Rows.Count).End(xlUp).Row
    
   　　　 For r = LastRow To 2 Step -1
              If Cells(r, 8) = "000*" Then
                 Cells(r, 1).EntireRow.Delete
              End If
         Next

Answer 1

If Cells(r, 8) = "000*" Then を
If Left(Cells(r, 8), 3) = "000" Then
に変えてください

Comments

[temji]

ありがとうございます。
希望通りの動きにすることができました！
知識を増やすことができました。
お二人にBAをお送りしたいのですが、一人しかできない仕様なので先に回答をくださったradames1000さんにお送りいたします。

Answer 2

ワイルドカードを使う場合Likeが使えます

If Cells(r, 8) Like "000*" Then

Comments

[temji]

ありがとうございます。
希望通りの動きにすることができました！
知識を増やすことができました。
お二人にBAをお送りしたいのですが、一人しかできない仕様なので先に回答をくださったradames1000さんにお送りいたします。