请大佬帮忙修改【删除指定文字】所在行代码，谢谢

bzjwcws

这是一段删除【指定文字所在行】的代码，但是不完美：
If Len(TextBox1.Text) > 0 Then
        Dim FirstCel As Excel.Range
         For Each FirstCel In ActiveSheet.UsedRange
                If InStr(FirstCel.Value, TextBox1.Text) <> 0 Then
                    Rows(FirstCel.Row).Delete
                End If
          Next
End If

在【文件1】工作表中，在文本框中输入【失业】，单击【删除指定文字所在行】按钮，可全部删除，但是在【文件2】工作表中，在文本框中输入【失业】，单击【删除指定文字所在行】按钮，只能删除一部分，需要单击数次【删除指定文字所在行】按钮，才能全部删除!请大佬们帮忙修改一下，非常感谢！

excel玉米

taller