want to change fill color on multiple shapes one at a time by mouse clicke the shapes to t

want to change fill color on multiple shapes one at a time by mouse clicke the shapes to turn it red or green

I am using this code to change a cell color but I want to perform same type of action on various shapes by clicking on them

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Select Case Target.Interior.ColorIndex
Case xlNone, 4: Target.Interior.ColorIndex = 3
Case Else: Target.Interior.ColorIndex = 4
End Select
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.ColorIndex = xlNone
End Sub

Yes your code works same as mine but it performs action cells in the worksheet. I am trying to perform the same type action on several hundred Rounded Rectangles I have placed on the worksheet. each having a unique names

Yes your code works same as mine but it performs action to cells in the worksheet. I am trying to perform the same type action on several hundred Rounded Rectangle "Shapes" I have placed on the worksheet. each having a unique names