Hello,

As I was watching the election results in the United States, I wanted to have an interactive map where I could click a state and assign the electoral value to either Democrat or Republican. I have a map and have successfully gotten the states to changes colors based on clicking it. What I am looking to do is assign the value to either Democrat or Republican. The code I have is below but I cannot get the cell to update based on the color of the shape. I know something is going wrong with my if statement but before I spend too much more time on it I want to make sure this is even possible.

Any help is appreciated - just thought this would be cool to have.

Sub Minnesota()
Dim Minnesota As Shape
    With Sheets("MainMap").Shapes("MINNESOTA").Fill.ForeColor
        Select Case .RGB
            Case vbRed
                .RGB = vbBlue
            Case Else
                .RGB = vbRed
        End Select
    End With
If Minnesota = vbRed Then Sheets("Control", Range("C24")) = 10

End Sub