Changing colors of shapes based on a click (VBA)

Hi,

I am trying to make a code that changes the color of a shape when I click that shape.

Ex. I have a blue oval and when I click it, it changes to pink. When I click it again, it changes to black. When I click it another time, it will change to orange. When I click it one last time, it goes back to blue and cycles through all of the colors as I keep clicking it.

Currently this is what I have:

Please Login or Register  to view this content.

This code works for one shape (named Oval 16). The problem is I want to apply it to around 600+ shapes (all ovals). I am very new to VBA so I am completely lost. The last thing I want to do is go through and give each oval it's own code (that would be like 10,000 lines!). Frankly, I am surprised I figured out the original code.

Does anyone have any suggestions?

Thanks!

Hi domexcel and welcome to ExcelForum,

Thank you very much for using CODE TAGS.

Try the following macro:

Please Login or Register  to view this content.

Lewis

Phenomenal! Thank you so much, I really appreciate it.