VBA to change colour of button when pressed

[Jasesair]

I have 10 buttons (like a keypad), each with assigned macro to do certain things. I'd like a line of code that I can add to each button's macro that changes the colour of the button when pressed. Idea being, when the button is pressed, it becomes a different colour and the remainder of the code then happens. The button would then need to revert back to its original colour when another of the 10 buttons is pressed.

Hoping this is an easy one!!

 

[DanteAmor]

How would I change your code above to only change specific shapes, not all.

Try this.
In this line of the macro put the name of the specific shapes.

Case "shape1", "shape2", "shape3", "etc"

Sub SetColor(v)
  Dim cell As String
  Dim shp As Shape
  cell = ActiveCell.Address
  For Each shp In ActiveSheet.Shapes
    Select Case shp.Name
      Case "shape1", "shape2", "shape3", "etc"    'Shape name, is case sensitive
        shp.Fill.ForeColor.RGB = RGB(175, 171, 171)
    End Select
  Next
  ActiveSheet.Shapes(v).Fill.ForeColor.RGB = RGB(224, 255, 124)
  Range(cell).Activate
End Sub

 

[BrianKbell]

Try this.
In this line of the macro put the name of the specific shapes.

Case "shape1", "shape2", "shape3", "etc"

Sub SetColor(v)
  Dim cell As String
  Dim shp As Shape
  cell = ActiveCell.Address
  For Each shp In ActiveSheet.Shapes
    Select Case shp.Name
      Case "shape1", "shape2", "shape3", "etc"    'Shape name, is case sensitive
        shp.Fill.ForeColor.RGB = RGB(175, 171, 171)
    End Select
  Next
  ActiveSheet.Shapes(v).Fill.ForeColor.RGB = RGB(224, 255, 124)
  Range(cell).Activate
End Sub

Worked perfectly! Thanks so much!!!!