command button laten kleur bij "actief" zijn

[schuurar]

Ik heb op een formulier 5 commandbuttons staan die met klikken een getal weergeven in een cel.

Nu zou ik willen de bij het klikken de kleur van de button veranderd.
Ik heb dit gevonden hier op het forum

CommandButton1.BackColor = &HFFFFFF

Mijn eigen code voor het laten uitvoeren van de code is

Private Sub CommandButton1_Click()
Range("h7") = Me.CommandButton1.Caption
End Sub

Hoe krijg ik dit nu in elkaar dat de5 buttons van elkaar weten welke er gekleurd moet zijn.
Na de klik op een andere button moet hij weer terug springen op de gewone kleur.

Bedankt vast
Bekijk bijlage kleur van button.xlsm

 

[Cobbe]

Deze versimpelde code doet dat voor u en ook gemakkelijk aan te passen mocht dat nodig zijn.

 

[schuurar]

Codde weer bedankt voor de oplossing !!!!
Hier kan ik weer mee verder!!