VBA code for changing color of dots upon click not working as it once did

[jenny1234]

This is my code:

Private Sub oval6_Click()
If ActiveSheet.Shapes("Oval 6").Fill.ForeColor.RGB = RGB(119, 119, 119) Then
ActiveSheet.Shapes("Oval 6").Fill.ForeColor.RGB = RGB(32, 177, 222)
Else
ActiveSheet.Shapes("Oval 6").Fill.ForeColor.RGB = RGB(119, 119, 119)
End If
End Sub
Private Sub oval5_Click()
If ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = RGB(119, 119, 119) Then
ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = RGB(32, 177, 222)
Else
ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = RGB(119, 119, 119)
End If
End Sub
Private Sub oval1_Click()
If ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = RGB(119, 119, 119) Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = RGB(32, 177, 222)
Else
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = RGB(119, 119, 119)
End If
End Sub
The point is for all of these dots to change color when clicked and back to grey when clicked again...
It worked once, but then it shut down without warning and I had to start over...I copy and pasted the code back into the VBA and now its not working. I have 156 of this code. for all the bubbles.

Help?!
selecteddot.PNG
dots.PNG