Hide Unchosen Objects/Shapes When Another Is Chosen

I work for Local Governments where supervisors want me to create Project Update program.

I've created one with VBA but still, cannot get the unchose color circles in the same row to become blank.

Whenever they choose one of the 3 color circles, 2 becomes blank.
I hope this will explain well enough for you to understand

here's the code I've put in and with the attachment, you can see my explaination.

Sub TimeRed()
doit 3, "D"
End Sub
Sub TimeYellow()
doit 6, "E"
End Sub
Sub TimeGreen()
doit 4, "F"
End Sub
Sub BudRed()
doit 3, "H"
End Sub