makro til at ændre farve på commandbutton

Kan du bruge denne

https://www.computerworld.dk/eksperten/spm/1001288

Private Sub Form_Load()
Me.Kommandoknap17.BackColor = vbWhite
End Sub

Private Sub Kommandoknap17_Click()
Const hvid = vbWhite
Const rød = vbRed
Const blå = vbBlue
Const grøn = vbGreen
    With Me.Kommandoknap17
        If .BackColor = hvid Then
            .BackColor = rød
        Else
            If .BackColor = rød Then
                .BackColor = blå
            Else
                If .BackColor = blå Then
                    .BackColor = grøn
                Else
                    If .BackColor = grøn Then
                        .BackColor = hvid
                    End If
                End If
            End If
        End If
    End With
End Sub

https://www.dropbox.com/s/m4rbq3a9i0p9lyd/commandbutton.xlsm?dl=0