Here's an example. You would put something like this into the code for the
sheet you want this to apply to. There's no error checking or anything.
Change "A1" to the cell you want and the value 1 to whatever you want. Let
me know if you need any help tweaking this to your needs.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "A1" Then
If Target.Value = 1 Then

ActiveSheet.OLEObjects.Add ClassType:="Forms.OptionButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=40, Top:=40, _
Width:=80, Height:=35

ActiveSheet.OLEObjects.Add ClassType:="Forms.OptionButton.1", _
Link:=False, DisplayAsIcon:=False, Left:=130, Top:=40, _
Width:=80, Height:=35

End If
End If
End Sub

"pjw23" wrote in message
...

I'm Looking to insert (2) option buttons into a area of my worksheet
when the value in another cell equals a certain value. I haven't been
able to find out how to do it yet, but I'm sure there's gotta be a
somewhat easy way for this. Can someone please help?


--
pjw23
------------------------------------------------------------------------
pjw23's Profile:
http://www.excelforum.com/member.php...fo&userid=6313
View this thread: http://www.excelforum.com/showthread...hreadid=272333