指定した文字列が含まれる行を削除する

質問

データの照合をしています。

指定した文字列が、「Ｏ列」に入っていたら、その行を削除し、
行をつめる

というようなマクロを組みたいのですが、エラーがかかってしまいます。
（下のＶＢは、ネットで公開されていたのを使用させていただいております。）

Sub Macro1()
Const col As String = "A"　'文字列が入力されている列
Dim idx As Long
Dim keyWord
keyWord = Application.InputBox("削除対象の文字列は？", Type:=2)
If TypeName(keyWord) <> "Boolean" And Len(keyWord) > 0 Then
　　For idx = Cells(65536, col).End(xlUp).Row To 1 Step -1
　　　　If InStr(Cells(idx, col).Value, keyWord) > 0 Then
'　　　　If Application.CountIf(Rows(idx), "*" & keyWord & "*") > 0 Then
　　　　　　Rows(idx).Delete
　　　　End If
　　Next idx
End If
End Sub

「下から３行目のＮＥＸＴに対応するｆｏｒがない」とエラーがでます。
ご教授、お願いいたします。

回答No.2

K Kazz（@JazzCorp） · ベストアンサー

Sub DelLines()
Dim R As Range
Do
Set R = ActiveSheet.Range("A:A").Find(What:="XXX", LookAt:=xlWhole)
If R Is Nothing Then Exit Sub
R.EntireRow.Delete
Loop
End Sub

お礼

ありがとうございます。
さっそくためしてみます。

回答No.1

mar00

>「下から３行目のＮＥＸＴに対応するｆｏｒがない」とエラーがでます。
Next idxの前にEnd Ifが1つ足りないために出るエラーだと思います。

お礼

ありがとうございます。
エラーはでなくなったのですが、うまく行を消すことができなきなりました。