Macro to change optionbutton properties permanently

[HugoRibeiro]

Hello guys!

I have a userform with a certain number of options from which the user has to choose one. However, he can also add more, so I created more optionbuttons with no caption and set their visibility to False. If the user wants to add a new option button, he clicks a button that opens a text box where he writes the name of the new optionbutton and, with the following code, the option button appears with the new name.
novo_desenho.OptionButton54.Visible = True
novo_desenho.OptionButton54.Caption = TextBox1.value

The problem is that when I close the userform, the Option Button hides again and has no name saved. I can make it work by doing this the following:
If Not IsEmpty(ActiveSheet.cell("P5")) Then
'novo_desenho.OptionButton54.Visible = True
'novo_desenho.OptionButton54.Caption = TextBox1.value
'End If

...but it's not efficient to make excel test this condition for 10 or 20 cells. Isn't there a way to make it save the changes permanently??

Thanks,
Hugo

[hulpeloos]

you need some vba code to write vba code , this will set you on the right path.
http://pubs.logicalexpressions.com/P...cle.asp?ID=307

[Kyle123]

The method you are using and have dismissed as "inefficient" is actually the best option, you could improve the performance of it a little but there's barely any point for only 10 cells. Going down the code with code route is fundamentally the wrong thing to do, it's hacky, messy and requires all users of your workbook to lower their security settings.

[HugoRibeiro]

OK, I'll stick with my first option then! I've also read that code to write code isn't advised, but i'll give it a look because it might be more useful someday.
Thank you both for your answers!

[arlu1201]

Based on your last post in this thread, its apparent that you are satisfied with the solution(s) you've received and have solved your question, but you haven't marked your thread as "SOLVED". I will do it for you this time.

In future, to mark your thread as Solved, you can do the following -
Select Thread Tools-> Mark thread as Solved.

Incase your issue is not solved, you can undo it as follows -
Select Thread Tools-> Mark thread as Unsolved.

Also, since you are relatively new to the forum, i would like to inform you that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post which helped you. This adds to the reputation of the person who has taken the time to help you.

[HugoRibeiro]

The reputation star I had already done, I'll keep in mind to mark as solved next time! thanks