Cross Post VB Code correction Help

[Ateeb Ali]

https://chandoo.org/forum/threads/option-button-caption-to-be-picked-from-cell-vlue.40521/

Me.OptionButtons("Option Button 1").Visible = Len(Me.Cells(1, 1)) > 0
ActiveSheet.Shapes.Range(Array("Option Button 1")).Select
Selection.Characters.Text = Range("A1")

This code giving error
My simple requirement if A1 value is empty, option button disappear
if A1 value is anything, same become caption of option button 1

 

[Ajesh]

Replied to your original post. Please check.

Thanks/Ajesh

 

[Ateeb Ali]

Please advice of this condition, you just replied for one part