Change colour to show which button was last clicked

[fawnlemur]

Hi

I've researched and I can' find what I want the code do:

I want a code that will change a button's colour when it's clicked, but when another button is clicked it would change that button's colour and reset the previous ones.

I'm not too sure if there is a way to do it without linking to a specific button as I've got too many button.

I have tried to do it but came out with nothing, so I don't have any decent example code.

Thank you very much for your help

 

[MickG]

For ActiveX CommandButtons:-
Create a Class Module and name the class "cbGoods"

Place this code in Class Module

Option Explicit
Public WithEvents Cgood As MSForms.CommandButton
Private Sub Cgood_Click()
Dim shp As OLEObject
For Each shp In ActiveSheet.OLEObjects
  If shp.Name = Cgood.Name Then
    shp.Object.BackColor = RGB(255, 0, 255)
   Else
     shp.Object.BackColor = RGB(153, 205, 205)
   End If
Next shp
End Sub

Place this code in the "ThisWorkbook" module

Option Explicit
Dim cGoodRay() As cbGoods
Private Sub Workbook_Open()
Dim oneControl As OLEObject
Dim pointer As Long
ReDim cGoodRay(1 To ActiveSheet.OLEObjects.Count)
For Each oneControl In ActiveSheet.OLEObjects
      If TypeName(oneControl.Object) = "CommandButton" Then
            pointer = pointer + 1
            Set cGoodRay(pointer) = New cbGoods
            Set cGoodRay(pointer).Cgood = oneControl.Object 
        End If
    Next oneControl
    ReDim Preserve cGoodRay(1 To pointer)
End Sub

Close and Reopen Workbook.
Buttons should now Change/ChangeBack colour of Button on selection