In my simpler test, I put 2 ovals from the Drawing toolbar and added names to 4
cells.

The ovals were named Object1 and Object2.
The cells were named CellA1, CellB1, CellA2 and CellB2.

This seemed to work ok:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

   Dim myShape As Shape
   Dim CellA As Range
   Dim CellB As Range
   Dim iCtr As Long
   Dim myColor As Long

   With Me
       For iCtr = 1 To 2 'You'll change this to 6
           Set myShape = Nothing
           Set CellA = Nothing
           Set CellB = Nothing
           On Error Resume Next
           Set myShape = .Shapes("Object" & iCtr)
           Set CellA = .Range("CellA" & iCtr)
           Set CellB = .Range("CellB" & iCtr)
           On Error GoTo 0
           
           If myShape Is Nothing _
            Or CellA Is Nothing _
            Or CellB Is Nothing Then
               MsgBox "Design error with Object/CellA/CellB " & iCtr
           Else
               If Intersect(Target, Union(CellA, CellB)) Is Nothing Then
                   'do nothing
               Else
                   If CellA.Value > CellB.Value Then
                       myColor = 11
                   ElseIf CellA.Value = CellB.Value Then
                       myColor = 13
                   Else
                       myColor = 10
                   End If
                   myShape.OLEFormat.Object.ShapeRange _
                       .Fill.ForeColor.SchemeColor = myColor
               End If
           End If
       Next iCtr
   End With
   
End Sub