Vba 条件格式-错误的行

我想创建一个宏，重置工作表上的所有条件格式，但由于某些原因，代码最终指向页面底部。根据记忆，我以前添加过这个问题，在家里可以很好地工作，但同样的代码在工作中不起作用

有什么建议吗

Public Function ResetHoursSheet()
    With Worksheets("Hours").Range("$H2:$H2000")
        .FormatConditions.Delete
        .FormatConditions.Add Type:=xlExpression, Formula1:="=$D2 = ""A/L"""
        .FormatConditions(1).Interior.ColorIndex = 2
    End With
End Function

代码运行后，条件格式显示以下内容

=$D1048570 = "A/L"

使用：

---

为什么要把它写成函数？函数用于返回值，而不是操作工作表中的单元格。请在添加CF之前选择范围。我无法重现该行为。无论我选择哪个范围，它对我都适用。使用您的确切功能，它对我适用（按F5运行）您是如何触发此事件的？什么版本的excel是itTeylyn，我试着把条件写成公式，但总是出错，所以不确定我做错了什么。

Worksheets("Hours").Range("$H2:$H2000").ClearFormats