Conditional Formatting on several shapes on one worksheet

Hello. This is my first time posting here on this forum. Nice to meet you all.

I am new to VBA in general and I'm not much of a tech savvy person but I am trying to learn VBA to make my tasks easier and efficient.

I am trying to make a Conditional Formatting on the three circles shown below on the picture. Basically what I'm trying to do is whenever I alter the percentages on cells L3, M3, and N3, the corresponding circle (A, B, and C) will change based on the colour (If Team A's score is 81%, it will turn orange, and vice versa).

sample1.PNG

I know that I can do the Conditional Formatting on one shape through VBA but is it possible to specify the shape to its assigned cell percentage? That's the part where I'm stuck at.

Any help would be very much appreciated.

Thank you.

Hello. Here's the code that I tried to incorporate to my sheet. But I just couldn't make it to suit my need.

Private Sub Test(ByVal Target As Range) 
     
    If Not Intersect(Target, Range("L3")) Is Nothing Then 
        If IsNumeric(Target.Value) Then 
            If Target.Value < 5 Then 
                ActiveSheet.Shapes("Oval 1").Fill.BackColor.RGB = vbRed 
            ElseIf Target.Value >= 5 And Target.Value < 8 Then 
                ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbYellow 
            Else 
                ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbGreen 
            End If 
        End If 
    End If 
End Sub

I just started it with simple conditions instead of range, I can tweak it later once I got the colours up and working.

It worked fine if I add just one Oval but when I added the other two it's not working anymore. I simply do not know how to name or differentiate the other two Oval shapes. I tried adding Dim at the start, did not worked also. Given that it's an ActiveSheet, does it affect the balance of the code?