Unable to return Option Button Value

[bigel]

When I try to run the following code I get a Variable Not Defined error message.

Select Case OptionButton1.Value
Case True
Sheet1.Cells(1, 1) = "YES"
Case False
Sheet1.Cells(1, 1) = "NO"
End Select

I have tried creating the option buttons both from the forms toolbar and from the controls toolbar and I can't get either to work. Am I missing a reference or something?

Thanks in advance for any help you can provide.

 

[p45cal]

Where is the code? A sheet module? A standard code module, the Thisworkbook module perhaps?, or maybe elsewhere?

 

[AD_Taylor]

I think its more that you have:

Case True

Case False

I think the compiler is assuming these are variables and currently have no value set. Try changing them to "True" and "False" (with the quotations)

 

[p45cal]

Where is the code? A sheet module? A standard code module, the Thisworkbook module perhaps?, or maybe elsewhere?

Also, where is the button? On a form, a sheet?
(And you probably have Option Explicit at the top of the module (you shouldn't necessarily remove it, it probably won't help to do so))

 

[bigel]

Found the fix - I just needed to add ActiveSheet in front of the optionbutton1.value part and it works fine now.

Thanks

Select Case ActiveSheet.OptionButton1.Value
Case True
MsgBox ActiveSheet.OptionButton1.Value
Case False
MsgBox "NO"
End Select