Conditionally Format cells in a row based on the sum of the previous nth cells.

[elcid7236]

I modified the code and now it works great... Many thanks

I modified the following code:
LastRow = Cells(RowsCount, 1).End(xlUp).Row to For Rw = 6 To 171 Step 5

Sum(Range("AD" & Rw & ":AJ" & Rw)) >= 56 to Application.WorksheetFunction.Sum(Range("AD" & Rw & ":AJ" & Rw)) >= 56 Then

Enum Cv_ColorValues
cvPink = RGB(255, 192, 203)
cvRed = RGB(255, 0, 0)
cvBlue = RGB(0, 0, 255)
End Enum

to
Dim strPink As String
Dim strBlue As String
Dim strRed As String

'Enum Cv_ColorValues
strPink = RGB(255, 192, 203)
strRed = RGB(255, 0, 0)
strBlue = RGB(0, 0, 255)
'End Enum