Hi,
I have BIG issue!
On Sheet1 I have 2 OptionButton's (OptionButton1 and OptionButton2, as name
box shows me).
Problem is in the fact that they are from Control toolbox and they are not
linked to any cell or variable.
I need to check which one is selected!
I do now the procedure when working with Forms toolbar but how to work with
OptionButton from control toolbox which is placed on sheet?!?!
Any idea?

for example:
If [OptionButton1] = true then
' write something in cell AV6
Else
' write something else in cell AV6
EndIf

of course, this is not working...

please, anyone.....

If Worksheets("Sheet1").optionbutton1.Value = true then
worksheets("Sheet1").range("av6") = "hi"
else
worksheets("Sheet1").range("av6") = "bye"
end if



Sasa Stankovic wrote:
>
> Hi,
> I have BIG issue!
> On Sheet1 I have 2 OptionButton's (OptionButton1 and OptionButton2, as name
> box shows me).
> Problem is in the fact that they are from Control toolbox and they are not
> linked to any cell or variable.
> I need to check which one is selected!
> I do now the procedure when working with Forms toolbar but how to work with
> OptionButton from control toolbox which is placed on sheet?!?!
> Any idea?
>
> for example:
> If [OptionButton1] = true then
> ' write something in cell AV6
> Else
> ' write something else in cell AV6
> EndIf
>
> of course, this is not working...
>
> please, anyone.....

--

Dave Peterson

Your soution works perfectly....
I was near but not close enough...

THANK YOU one more time!

"Leith Ross" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>
> Hello Sasa Stankovic,
>
> The easiest and quickest solution would be remove the Control Toolbox
> Option Buttons and replace them with the Forms Option Buttons. If you
> can't replace the buttons, here is how to check...
>
> Code:
> --------------------
>
> Sub CheckOptionButtons()
>
> Dim OleObj As Object
> Dim OptBtn As Object
>
> With ActiveSheet
> For Each OleObj In .OLEObjects
> If TypeName(OleObj.Object) = "OptionButton" Then
> Set OptBtn = OleObj.Object
> If OptBtn = True Then
> MsgBox OleObj.Name & " is Set."
> End If
> End If
> Next OleObj
> End With
>
> End Sub
>
> --------------------
>
> Sincerely,
> Leith Ross
>
>
> --
> Leith Ross
> ------------------------------------------------------------------------
> Leith Ross's Profile:
> http://www.thecodecage.com/forumz/member.php?userid=75
> View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=44968
>