Option to run all Case statements

Short background:
I have 11 shape buttons, each with a unique name, and designed to run a different report. 1 of the 11 buttons is a "Run all Reports". I have 1 case statement that will recognize the name of the button selected and run that Case.

My question:
Is there anyway for when the "Run all Reports" button is selected I can have it run through the other 10 Case statements?

Below is the part of the code I have so far.

Thanks.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Hi,

What does the code for runReport look like?

I'm afraid that doesn't actually help that much as it basically just calls a couple of other routines.

What I really want to know is whether the code would effectively need to populate rgValues with each item in turn, or is there a single value it can use for ALL_REPORTS?

You can't have it run through multiple case statements. Each case is like an OR operator. You could, of course, code it differently. Maybe something like this (the code is not tested)...

Please Login or Register  to view this content.

Originally Posted by wjwelch1

AlphaFrog, your loop worked the only issue is the line ActiveSheet.Shapes(CallingShapeName).Delete is not actually deleting the shapes. But over all you solved my question.

Thanks.

You're welcome.

Remove CallingShapeName from the Dim statement and it should work.

Please Login or Register  to view this content.