Ændre farve på CommandButton

Private Sub CommandButton21_Click()
Const hvid = &HFFFFFF
Const rød = &HFF&
Const blå = &HFF0000
Const grøn = &HFF00&
Stop
    With CommandButton21
        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

Hej Supertekst, tusind tak - det var lige det jeg gerne ville have. VH Jane

Hej Jane
Selv tak..