Skifte faver på commandButton

Private Sub UserForm_Initialize()
CommandButton1.BackColor = 65280 'Grøn
CommandButton2.BackColor = -2147483633 'Grå
CommandButton3.BackColor = -2147483633 'Grå
End Sub

Private Sub CommandButton1_Click()
CommandButton1.BackColor = 65280 'Grøn
CommandButton2.BackColor = -2147483633 'Grå
CommandButton3.BackColor = -2147483633 'Grå
End Sub

Private Sub CommandButton2_Click()
CommandButton1.BackColor = 255 'Rød
CommandButton2.BackColor = 65280 'Grøn
CommandButton3.BackColor = -2147483633 'Grå
End Sub

Private Sub CommandButton3_Click()
CommandButton1.BackColor = 255 'Rød
CommandButton2.BackColor = -2147483633 'Grå
CommandButton3.BackColor = 65280 'Grøn
End Sub

Fedt, lige som jeg ønskede det. Tak for hjælpen.

Velbekomme

Er du der endnu morten.
Jeg havde glemt at skrive at den skal gemme de indstillenger men har trykket. Så hvis XX er Grøn og X er Rød, så skal man kunne lukke userformen ned og når man starter den igen så er det som man lukkede det ned. Den må gerne gemme informationerne på Ark 1 f.eks. Håer du kan hjælpe igen

Private Sub UserForm_Initialize()
CommandButton1.BackColor = Worksheets(1).Range("A1").Value 'Grøn
CommandButton2.BackColor = Worksheets(1).Range("A2").Value 'Grå
CommandButton3.BackColor = Worksheets(1).Range("A3").Value 'Grå
End Sub

Private Sub CommandButton1_Click()
CommandButton1.BackColor = 65280 'Grøn
Worksheets(1).Range("A1").Value = CommandButton1.BackColor
CommandButton2.BackColor = -2147483633 'Grå
Worksheets(1).Range("A2").Value = CommandButton2.BackColor
CommandButton3.BackColor = -2147483633 'Grå
Worksheets(1).Range("A3").Value = CommandButton3.BackColor
End Sub

Private Sub CommandButton2_Click()
CommandButton1.BackColor = 255 'Rød
Worksheets(1).Range("A1").Value = CommandButton1.BackColor
CommandButton2.BackColor = 65280 'Grøn
Worksheets(1).Range("A2").Value = CommandButton2.BackColor
CommandButton3.BackColor = -2147483633 'Grå
Worksheets(1).Range("A3").Value = CommandButton3.BackColor
End Sub

Private Sub CommandButton3_Click()
CommandButton1.BackColor = 255 'Rød
Worksheets(1).Range("A1").Value = CommandButton1.BackColor
CommandButton2.BackColor = -2147483633 'Grå
Worksheets(1).Range("A2").Value = CommandButton2.BackColor
CommandButton3.BackColor = 65280 'Grøn
Worksheets(1).Range("A3").Value = CommandButton3.BackColor
End Sub

Super. Tak fordi du hjalp igen. Den virker som den skal nu.
Nu må jeg se om jeg har husket det hele :)