Напишите макрос на VBA, чтобы изменить цвет кнопки

Я написал макрос на VBA, чтобы изменить цвет кнопки (ворс). Я хочу, чтобы кнопка была белой, затем зеленой при однократном нажатии, красной при повторном нажатии и белой при повторном нажатии.

Однако код не работает, и кнопка просто сохраняет исходный синий цвет.

Sub ChangeButtonColor()
Dim btn As Object


Set btn = ActiveSheet.Shapes("lint")


Select Case btn.Fill.ForeColor.RGB
    Case RGB(255, 255, 255)
        btn.Fill.ForeColor.RGB = RGB(0, 255, 0) 'green
    Case RGB(0, 255, 0)
        btn.Fill.ForeColor.RGB = RGB(255, 0, 0) 'red
    Case RGB(255, 0, 0)
        btn.Fill.ForeColor.RGB = RGB(255, 255, 255) 'white
End Select


End Sub