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...