ランタイムエラー5、無効なプロシージャコールまたは引数

Question

奇数のチャンスで、以下のVBコードで何が間違っているかを誰でも見ることができます。

ランタイムエラー5、無効なプロシージャ呼び出しまたは引数

エラーがここでコード

wssheet1.Range("BC" & x).FormatConditions.Add Type:=xlExpression, Formula1:= _ 
     "=AND(COUNTIF(Ratecard!Q:Q,BC3)=0,AN3>0) = TRUE" 

の下のチャンク上で強調表示されているが、全体のコードです：

Sub TestLook() 
Set wsWhiteCollar = ThisWorkbook.Worksheets("White Collar") 
Set wssheet1 = ThisWorkbook.Worksheets("WEW") 

wsWhiteCollar.Activate 

'wssheet1.Activate 

EndWC = wssheet1.Range("B" & Rows.Count).End(xlUp).Row 'i.e. column B last row 24 to 25 on my WEW table 


Application.ScreenUpdating = False 

For Each c In wsWhiteCollar.Range(wsWhiteCollar.Range("A2"), wsWhiteCollar.Range("A" & Rows.Count).End(xlUp)) 

    For x = 2 To EndWC Step 1 
     wssheet1.Activate 
     wssheet1.Range("B" & x).Select 

     If c.Value = wssheet1.Range("B" & x).Value Then 

      wssheet1.Range("BC" & x).FormatConditions.Delete 
      wssheet1.Range("BC" & x).FormatConditions.Add Type:=xlExpression, Formula1:= _ 
      "=AND(COUNTIF(Ratecard!Q:Q,BC3)=0,AN3>0) = TRUE" 
      wssheet1.Range("BC" & x).FormatConditions(1).SetFirstPriority 

      With wssheet1.Range("BC" & x).FormatConditions(1).Interior 
       .PatternColorIndex = xlAutomatic 
       .Color = 255 
       .TintAndShade = 0 
      End With 

      wssheet1.Range("BC" & x).FormatConditions(1).StopIfTrue = False 
      wssheet1.Range("BC" & x).FormatConditions.Add Type:=xlExpression, Formula1:= _ 
       "=AND(COUNTIFS(White Collar!A:A,B3, White Collar!U:U,BC3)=0, AV3=0) = TRUE" 

      With wssheet1.Range("BC" & x).FormatConditions(2).Interior 
       .PatternColorIndex = xlAutomatic 
       .Color = 49407 
       .TintAndShade = 0 
      End With 
      Exit For 
     ElseIf Selection.Interior.ThemeColor <> xlThemeColorAccent2 Then 
      With Selection.Interior 
       .Pattern = xlSolid 
       .PatternColorIndex = xlAutomatic 
       .ThemeColor = xlThemeColorLight1 
       .TintAndShade = 0 
       .PatternTintAndShade = 0 
      End With 
     End If 
     wsWhiteCollar.Activate 
    Next x 
Next c 
'Application.ScreenUpdating = True 
'wssheet1.Range("B2").Select 
End Sub 

Answer 1

新しいセルに数式COUNTIF（Ratecard！Q：Q、BC3）を配置してから、そのセルを参照してください条件付き書式。