vba excel条件格式 - 无效的过程调用或参数

我有一个 Excel 工作表，我想在其中通过 VBA 添加一个条件公式。当我尝试这样做时，Excel 抛出“无效的过程调用或参数”，我找不到原因。

问题正是这一行：

Set cf = shG.Range("E" & (i - 3) & ":AI" & (i - 2)).FormatConditions.Add(type:=xlExpression, Formula1:="=OR(ISNUMBER(SEARCH(""holiday"",E$" & i & ")),ISNUMBER(SEARCH(""l4"",E$" & i & ")))")

它应该做什么？

如果第 4 行包含“holiday”或“l4”，它应该将第 1 行和第 2 行的字体颜色更改为白色

完整的子：

Sub AddCondForm(shG As Worksheet)
    Dim r As Range
    Dim cf
    Set r = shRoles.Cells(2, 1)
    Do
        For i = 8 To 204 Step 4
            If Not IsEmpty(shRoles.Cells(r.row, 2)) Then
                Set cf = shG.Range("E" & i & ":AI" & i).FormatConditions.Add(type:=xlTextString, String:=r.Value, _
                TextOperator:=xlBeginsWith)
            Else
                Set cf = shG.Range("E" & i & ":AI" & i).FormatConditions.Add(type:=xlCellValue, Operator:=xlEqual, _
                Formula1:=r.Value)
            End If
            cf.Interior.Color = r.Next.Next.Next.Interior.Color
            cf.Font.Color = r.Next.Next.Next.Font.Color
            cf.SetFirstPriority

'HERE IS PROBLEM

            Set cf = shG.Range("E" & (i - 3) & ":AI" & (i - 2)).FormatConditions.Add(type:=xlExpression, Formula1:="=OR(ISNUMBER(SEARCH(""holiday"",E$" & i & ")),ISNUMBER(SEARCH(""l4"",E$" & i & ")))")

'END OF PROBLEM
                cf.Font.ColorIndex = 2 
                'Coloring C Column 
                Set cf = shG.Range("C" & (i - 3) & ":C" & i).FormatConditions.Add(type:=xlExpression, Formula1:="=$A$" & i - 3 & "=1")
                cf.Interior.ThemeColor = xlThemeColorAccent6
                Set cf = shG.Range("C" & (i - 3) & ":C" & i).FormatConditions.Add(type:=xlExpression, Formula1:="=$A$" & i - 3 & "=3/4")
                cf.Interior.ThemeColor = xlThemeColorAccent6
                cf.Interior.TintAndShade = 0.2
                Set cf = shG.Range("C" & (i - 3) & ":C" & i).FormatConditions.Add(type:=xlExpression, Formula1:="=$A$" & i - 3 & "=1/2")
                cf.Interior.ThemeColor = xlThemeColorAccent6
                cf.Interior.TintAndShade = 0.4
                Set cf = shG.Range("C" & (i - 3) & ":C" & i).FormatConditions.Add(type:=xlExpression, Formula1:="=$A$" & i - 3 & "=1/4")
                cf.Interior.ThemeColor = xlThemeColorAccent6
                cf.Interior.TintAndShade = 0.6
            Next
            Set r = shRoles.Cells(r.row + 1, 1)
        Loop Until IsEmpty(r.Value)
    End Sub

PS。我检查了公式本身，它似乎工作正常。其他线路也运行良好。只有这一个，我不知道为什么:'(