title: Run time error over conditional formatting in VBA
body: <p>So this was working, highlighting the cells to the right of the checkaddress value. Now it isn't and I cant figure out why. It gives the error "Run-time error '5': Invalid procedure call or argument". The error is in the first .Add statement, but commented it out, all the .Add statements error. </p>
  
  <pre><code>Sub Highlight4()
  
  For i = 1 To ActiveSheet.Cells(Rows.Count, 4).End(xlUp).row Step 2
  
      If Cells(i, 4) = "Metric" Then
          For j = 1 To 15
  
          Dim r As Range
          Set r = Range(Cells(i, j * 4 + 2), Cells(i + 1, j * 4 + 4))
  
          Dim checkAddress As String
          checkAddress = Cells(i, j * 4 + 1).Address
  
          With r.FormatConditions
              .Delete
  
              .Add Type:=xlExpression, Formula1:="=" &amp; checkAddress &amp; " = 0"
              .Item(.Count).Interior.Color = rgbRed
  
              .Add Type:=xlExpression, Formula1:="=" &amp; checkAddress &amp; " = 15"
              .Item(.Count).Interior.Color = rgbGold
  
              .Add Type:=xlExpression, Formula1:="=" &amp; checkAddress &amp; " = 25"
              .Item(.Count).Interior.Color = rgbGreen
          End With
  
          Next j
      End If
  Next i
  End Sub
  </code></pre>