Reference Option Button name in a variable in IF Statement

I'm having trouble figuring out how to reference the name of an option button that I'm storing in a string variable so I can check all the option buttons on my sheet with an IF statement in a loop. I'm populating variable 'strOptionName' from an array at the beginning of each loop iteration and performing the following IF statement where "pre01y" is the name of the option button:

If Sheets("Sheet1").pre01y = True Then

The above runs fine and if the "pre01y" option button is selected (true) then the code drops into my IF statement. However, if I am populating a variable name such as "strOptionName" with the same value (option name) it does not work like this:

If Sheets("Sheet1").strOptionName = True Then

I get an Object doesn't support property or method error using the option button name in a variable. I have tried doing concatenation, brackets, etc. without any luck. Is it possible to do this and if so how?

If it's an ActiveX option button then you'll need to use OLEObjects.

If Sheets("Sheet1").OLEObjects(strOptionName).Object.Value = True Then

Option Explicit

Private Sub optButton1_Click()
Dim optBut
Const strOptionName As String = "optButton1"

' print the sheet name
Debug.Print Me.Name

' loop through the shapes in the worksheet
For Each optBut In Me.Shapes
    ' print the shape name
    Debug.Print optBut.Name
Next

' print the name of a specific shape
Debug.Print Me.Shapes("optButton1").Name

' print the name of a specific shape using variable
Debug.Print Me.Shapes(strOptionName).Name

 ' print the value
Debug.Print Me.OLEObjects(strOptionName).Object.Value

End Sub

Regards, TMS

You're welcome. Thanks for the rep.


If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.