Coniditional Formatting Applying Randomly or to Whole Sheet

[AlexB123]

Hi everyone,

I need a macro to change the font of entire rows of data for two conditions.

(1) If column C (age of column B) is greater than 30 days, but less than 61 days, the font should be BOLD and BLACK.
(2) If Column C is greater than 60 days, the font should be BOLD AND RED.

I'm definitely getting frustrated ... this should be so simple.

   Dim wrkRng As Range
 
  With ActiveWorkbook.Worksheets("Sheet1").Range("A1:M1071")
            .FormatConditions.Delete
            Set wrkRng = ActiveWorkbook.Worksheets("Sheet1").Range("A1:K1071")
        End With
       
   With wrkRng
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND($C2>30,$C2<=60)"
    With .FormatConditions(1).Font
     .Bold = True
     .Color = RGB(0, 0, 0)
    End With
        End With
    
        With wrkRng
            
            .FormatConditions.Add Type:=xlExpression, Formula1:="=$C2>=61"
            With .FormatConditions(2).Font
                .Bold = True
                .Color = RGB(255, 0, 0)
            End With
        End With

 

[AlexB123]

Yes, the formula is correct, but does not work when it is produced via VBA.

When I delete all rules, and input the same formula manually, it works as expected.

 

[AlexB123]

When the rules are created by VBA, it does the following:

a) it highlights the row above the one that should be highlighted, when the row that should be highlighted is not followed by another row that should be highlighted

b) if there are two successive rows that should be highlighted, the row before the first and the row above the second row are highlighted.

i.e.,

7 (bold)
34 (no formatting)
6

7 (bold and red)
62(bold and black)
34 (no formatting)

 

[AlexB123]

UPDATE!!!

After the nonsense above, I applied the code I created to a broader macro that opens a workbook and creates a file from that one. IT SEEMS TO WORK!!!

LOL. I have no idea why my test workbook and macro applies the conditional formatting in such an odd way ... I would be very interested to hear any suggestions as to why it applied the rules as it did. I will keep my fingers crossed this new macro continues to operate as expected next week.

Thanks!