根据不起作用的单元格值删除行的代码

Question

以下代码是从另一个子调用的。该子中的所有内容都按预期工作。但是，启动此子时，它不会删除行。所需的结果是删除所有包含＆＃34;在争议SBU＆＃34;之后的行。在J列中，当我进入特定的工作表时，选择了整个使用的范围，但这是sub似乎停止的位置。我没有收到任何错误消息。在此之后列出的另一个被调用的程序可以正常工作。我看不出这个子有什么不妥，是因为它没有完成。

Sub Remove_After_Dispute()

    Application.ScreenUpdating = False

    With ActiveWorkbook.Worksheets("MIM Data")

        Dim DelAftDis As Long
        For DelAftDis = Cells(Rows.Count, 10).End(xlUp).row To 2 Step -1

            With Cells(DelAftDis, 10)
                If .Value = "After Dispute For SBU" Then
                    Rows(DelAftDis).EntireRow.Delete
                End If
            End With

        Next DelAftDis

    End With

    Application.ScreenUpdating = True

End Sub