Case with boolean

[ksilenio]

Hi to every one .I have 3 option buttons (radio) and i want to take the .values which is true or false with a select case statement .How can i do it ?
Regards
Kostas

[Bob Phillips]

Something like this?


Sub GetValue()

Select Case Application.Caller

Case "Option Button 1"

If ActiveSheet.OptionButtons("Option Button 1").Value Then

Debug.Print "Option button #1 clicked"
Else

Debug.Print "Option button #1 unclicked"
End If

Case "Option Button 2"

If ActiveSheet.OptionButtons("Option Button 2").Value Then

Debug.Print "Option button #2 clicked"
Else

Debug.Print "Option button #2 unclicked"

Case "Option Button 21"

If ActiveSheet.OptionButtons("Option Button 2").Value Then

Debug.Print "Option button #2 clicked"
Else

Debug.Print "Option button #2 unclicked"

End Select
End Sub

[ksilenio]

Thank you very much for your answer