Create checkboxes automatically on userform

[YasserKhalil]

Hello everyone
I need a code that enables me to create checkboxes on userform automatically ..
The number of the checkboxes will be Sheets.Count - 1
I mean to rename the created checkboxes with sheets' names except for activesheet

For example: I have four sheets (Main - Report - Data -Result) .. If the Main sheet is the activesheet
In userform intialize I need to create three checkboxes with the caption of each sheet of the other three (Report - Data -Result)

Also I need to create a command button automatically ...
Thanks advanced for help

[Olly]

Try something like this - it relies on having a commandbutton already on the userform (but it moves it to the right place...)

Please Login or Register  to view this content.

[YasserKhalil]

That's wonderful and awesome Mr. Olly
Exactly as I need .. Working like charm and as expected
Thank you very much
Kind Regards

[YasserKhalil]

Hello again
I tried to edit this line

Please Login or Register  to view this content.

to be like that

Please Login or Register  to view this content.

I checked two of the three checkboxes and it is supposed to display just two messages but I received three messages (two with CB caption and an empty message)
Why I got this empty message?

[mikerickson]

The coding of created controls can be problematic.
Rather than making checkboxes at run-time, have you considered using a multi-select ListBox with the .ListStyle set to fmListStyleOption?

[YasserKhalil]

Thank you very much Mr. Mike
In fact I am so weak at dealing with forms .. Can you provide me a solution to create listbox with sheet names except for active sheet ..
And enables me to select multiplce choices from the list ..
Thanks a lot for advanced help

[Olly]

Hello again
I tried to edit this line

Please Login or Register  to view this content.

to be like that

Please Login or Register  to view this content.

I checked two of the three checkboxes and it is supposed to display just two messages but I received three messages (two with CB caption and an empty message)
Why I got this empty message?

Did you delete the final msgbox line:

Please Login or Register  to view this content.

[YasserKhalil]

Thanks a lot Mr. Olly
I'm sorry I didn't notice it ... you are completely right ..
Now It is working well
Thanks again and sorry for disturbing you
Best Regards

[Olly]

Thank you very much Mr. Mike
In fact I am so weak at dealing with forms .. Can you provide me a solution to create listbox with sheet names except for active sheet ..
And enables me to select multiplce choices from the list ..
Thanks a lot for advanced help

Here's code which will work for a userform with one listbox (ListBox1) and one Command Button (CommandButton1), listing all worksheets (except [Main] in the listbox, and allowing multiple selections:

Please Login or Register  to view this content.

[YasserKhalil]

Really awesome awesome awesome
Thank you very much for this pretty gift .. I liked it a lot
Thanks again for this unique help
Regards