Fill Color for a Group of Shapes

I have a map of the United States with the following code. When you click a state the color changes from red to blue to white and back again. I have two states (Michigan and Hawaii) that are causing issues. It is because the states are grouped shapes. I have been trying to find a solution for the past week . I have tried several 'if statements', etc to make it work. What am I missing here?

Please Login or Register  to view this content.

I am not sure what you mean. Maybe their color is not one of the 3 cases? Case Else can be used to get back on track...

Please Login or Register  to view this content.

Hi Kenneth,

Thanks for your reply. I am going to copy the full code below and try to give a better explanation of what is happening. After the election, I wanted to create an electoral map so next election I can try to project the path to Presidency similarly to how the do it on the news. I have a map of the 50 states. With my current code, you click the state and it will change either red, blue or white. This represents Republicans, Democrats and Undecided. The color of the shape feeds into a table that will pull the electoral amount for that state and add them up for the respective party. This code currently works for 48 of the 50 states.

The two states that do not work are Michigan and Hawaii. Michigan and Hawaii on the map are a group of shapes rather than one individual shape - Hawaii with it's multiple islands and Michigan with the lower and upper peninsula. The code breaks when you click on a group rather than an individual shape. I am not opposed to having separate macros for these two states but I cannot come up with a way that will work to change a group of shapes and cycle through them like "Case" does.

Please Login or Register  to view this content.

Map.JPG

In my map, I set each state to a shape name and set two shapes in a group and tested with my code. I assigned Main() to run for each shape. A macro could be set to assign the macro to call for each shape if manually setting is too tedious.

Would it be possible for you to attach the file or a simple obfuscated one?

Click the Go Advanced button in lower right of a reply, and scroll past reply block and click Manage Attachments hyperlink and then Browse and Upload.

Thank you for telling me how to do it. I tried to attach the workbook to the last reply but I couldn't figure it out.

This works for Michigan but not Hawaii. If you change Hawaii manually once, it works. If you look at the Debug results in the Immediate window after clicking Hawaii after it works once, it returns the wrong color.

Please Login or Register  to view this content.

Hi Kenneth,

I didn't want you to think I forgot about you. Thank you for the time you spent helping me with this. My goal was to write this macro with as little to no help as possible. Obviously, that didn't work out too well when it comes to grouping shapes. Your code(s) you provided were awesome. In the end I wanted to stick with what I understood which was the code I had already written. In order to do so I had to give in to Excel a little and format some shapes differently. This has been a huge learning experience and I wanted to share the final product with you. Thanks again.