Macros assigned Shape, colour changing code needed please

I have made several Shapes and assigned macros to them, all is good.

What i am curious about: is it possible to highlight or change colour of the shape on press and return to normal if another is shape is pressed? Just anything to make that particular shape stand out that it has been selected then return to normal when another shape has been selected...

Sub AllLocal()
'
' AllLocal Macro
'
    Application.ScreenUpdating = False
'
    Sheets("DATA2").Select
    Range("A2").Select
    Selection.Copy
    Sheets("Main").Select
    Range("H5").Select
    ActiveSheet.Paste
    Range("C6").Select
    Application.ScreenUpdating = True
    
End Sub

That is the code so far that is attached to 1x shape...

This will change the color of the shape. You just need to insert the name of the shape between the quotes

 ActiveSheet.Shapes.Range(Array("NAME OF SHAPE GOES HERE")).Fill.ForeColor.SchemeColor = 3

I think you could then put the same line in the other shape code , but change the number 3 to a different number.

Here ya go. Here's an example of two codes that will switch the colors of two shapes when the shapes are pressed.

Sub aa()
 ActiveSheet.Shapes.Range(Array("Heart 1")).Fill.ForeColor.SchemeColor = 3
 ActiveSheet.Shapes.Range(Array("5-Point Star 2")).Fill.ForeColor.SchemeColor = 2
End Sub

Sub ae()
 ActiveSheet.Shapes.Range(Array("Heart 1")).Fill.ForeColor.SchemeColor = 2
 ActiveSheet.Shapes.Range(Array("5-Point Star 2")).Fill.ForeColor.SchemeColor = 3
End Sub

Assign the codes to different shapes.

here is an example with 4 shapes. pressed button is in red.

Sub PressMe()
    Dim vntItem As Range
    
    ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1", "Rounded Rectangle 2", _
                                   "Rounded Rectangle 3", "Rounded Rectangle 4")).Fill.ForeColor.RGB = RGB(100, 100, 100)
    ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(255, 0, 0)
    
End Sub