Multiple FormatConditions(1).Interior not working properly

[ivill]

Hi, how do i solve this issue? with multiple conditions, i modified the line With .FormatConditions(1).Interior to With .FormatConditions(2).Interior or (3) (4)... ...etc, but it's not working properly at all...
Could someone advise me? thanks!

Sub Condition()
Dim rng1 As Range, rng2 As Range, rng3 As Range, rng4 As Range, rng5 As Range, rng6 As Range, rng7 As Range
Sheets("SHEET1").Cells.FormatConditions.Delete

Set rng1 = ThisWorkbook.Worksheets("SHEET1").Range("A3:Z6000")
With rng1
.FormatConditions.Add Type:=xlExpression, Formula1:="=COUNTIFS($A$3:$A3, $A3)=1"
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(183, 225, 205)
.TintAndShade = 0
End With
End With

Set rng2 = ThisWorkbook.Worksheets("SHEET1").Range("F3:G6000")
With rng2
.FormatConditions.Add Type:=xlExpression, Formula1:="=not(isblank(F3:G6000))"
With .FormatConditions(2).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(252, 232, 178)
.TintAndShade = 0
End With
End With

Set rng3 = ThisWorkbook.Worksheets("SHEET1").Range("N3:O6000")
With rng3
.FormatConditions.Add Type:=xlExpression, Formula1:="=not(isblank(N3:O6000))"
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(221, 235, 247)
.TintAndShade = 0
End With
End With

Set rng4 = ThisWorkbook.Worksheets("SHEET1").Range("P3:Q6000")
With rng4
.FormatConditions.Add Type:=xlExpression, Formula1:="=not(isblank(P3:Q6000))"
With .FormatConditions(2).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(211, 165, 178)
.TintAndShade = 0
End With
End With

Set rng5 = ThisWorkbook.Worksheets("SHEET1").Range("H3:I6000")
With rng5
.FormatConditions.Add Type:=xlExpression, Formula1:="=not(isblank(H3:I6000))"
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = RGB(109, 158, 235)
.TintAndShade = 0
End With
End With

Set rng6 = ThisWorkbook.Worksheets("SHEET1").Range("C3:E6000")
With rng6
.FormatConditions.Add Type:=xlExpression, Formula1:="=not(isblank(C3:E6000))"
With .FormatConditions(1).Font
.Color = RGB(11, 128, 67)
.TintAndShade = 0
End With
End With

Set rng7 = ThisWorkbook.Worksheets("SHEET1").Range("J3:K6000")
With rng7
.FormatConditions.Add Type:=xlExpression, Formula1:="=not(isblank(J3:K6000))"
With .FormatConditions(1).Font
.Color = RGB(197, 57, 41)
.TintAndShade = 0
End With
End With

End Sub

 

[Fluff]

Try it like

With .FormatConditions(.FormatConditions.Count).Interior

 

[ivill]

I dunno how, but it works like a charm, thx boss

 

[Fluff]

You're welcome & thanks for the feedback.