Hello!

Is it possible to have more than 3 Format Conditions on the same cell? I tried to do this with VBA but it is not working. Is it not possible or am I doing something wrong. Here is the code:

 
Range("E10").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A10=$L$2"
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
    End With
    With Selection.FormatConditions(1).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.FormatConditions(1).Borders(xlBottom).LineStyle = xlNone
    Selection.FormatConditions(1).Interior.ColorIndex = 15
    
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A10=$L$3"
    With Selection.FormatConditions(2).Font
        .Bold = True
        .Italic = False
    End With
    With Selection.FormatConditions(2).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.FormatConditions(2).Borders(xlBottom).LineStyle = xlNone
    Selection.FormatConditions(2).Interior.ColorIndex = 15
    
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A10=$L$4"
    With Selection.FormatConditions(3).Font
        .Bold = True
        .Italic = False
    End With
    With Selection.FormatConditions(3).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Selection.FormatConditions(3).Borders(xlBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.FormatConditions(3).Interior.ColorIndex = 15
    
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=B10<>"""""
    With Selection.FormatConditions(4).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=A10=ukupno"
    With Selection.FormatConditions(5).Borders(xlRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With