VBA to Show/Hide multiple shapes based on cell values

I have the following code in a workbook I am currently working on that hides certain shape files. The macro works as intended. The issue I have is that there are 200 shapes per work book and 6 workbook so I would prefer to not have to write the code for 1200 shapes. Is there a way to modify this code that will allow it to look for all shapes at once. I am not concerned about the name of the shape at all as long is it is unique. Essentially if the cell the shape is associated with is empty I would like to hide the shape.

Please Login or Register  to view this content.

To further make my life easier is there a way in which I can auto name the shapes to a specific scheme. Liek I sadi I am not picky on names as long as they follow a logical scheme. You will have to bear with me on my ignorance of excel as I am an AutoCAD guy!

The attached VBA subroutine looks at all the 'Shapes' on the active sheet and displays the results in the 'Immediate Window'. You should be able to adapt this to your situation.

Please Login or Register  to view this content.