Using Sub Name in Code

[brentjohn]

Greetings,
I have several ActiveX Control Check Boxes I need to create, all using the same code. I can copy and paste the Sub name into the code, but this will take a very long time, not to mention the chance of errors. I have tried using a DIM statement to insert the Sub name into the code, but cannot figure it out.
Below is the code i am using.

Please Login or Register  to view this content.

[6StringJazzer]

Are you saying that you have several check boxes and you want them all to have code for a click event that is exactly the same? First, I am wondering if your design is optimal, and would like more insight to your overall design. Can you attach your file?

But to answer the question, one way to do this is to create a class with a method, bind all your checkboxes to that class, and then the same Sub will be called when any of the checkboxes are clicked. I have attached a model that shows how to do this.

[brentjohn]

6StringJazzer,
Thank you much for the sample workbook!
I apologize, the check boxes will not run the same code. However, there are several lines that are the same. I am wanting to "copy and paste" the Sub name into the lines of code.

[Norie]

Have you considered using Forms controls?

With those you could use the same macro for each control and use Application.Caller to handle the lines that differ for each control.

[brentjohn]

Norie,
In my code below, I am using the Sub name to control the colors and value. Is there a way to insert the Sub name into these lines?

Please Login or Register  to view this content.

[6StringJazzer]

brentjohn, are your checkboxes on a UserForm, or on a worksheet?

[brentjohn]

They are on a worksheet.

[6StringJazzer]

Then you should explore Norie's suggestion of using Forms controls instead of ActiveX.