return .caption text of worksheet control

[Susan]

i've tried several ways to get this to work, but i can't. i'm
beginning to think you cannot get the .caption off the
control......... (when it's a toolbox control):

Private Sub OptionButton2_Click()
Initial_Sheet_Select ActiveSheet.OLEObjects _("OptionButton2")
End Sub


Public Sub Initial_Sheet_Select(OLEobj As OLEObject)
With OLEobj
sTab = .Caption
End With
wb.Sheets(sTab).Select
End Sub


any ideas?
thanks!
susan

 

[Tom Ogilvy]

Private Sub OptionButton2_Click()
Initial_Sheet_Select ActiveSheet.OLEObjects _
("OptionButton2")
End Sub


Public Sub Initial_Sheet_Select(OLEobj As OLEObject)
With OLEobj
sTab = .Object.Caption '<===
End With
wb.Sheets(sTab).Select
End Sub

 

[Susan]

THANK YOU THANK YOU THANK YOU!!!!
like an hour of agonizing & researching over a stupid period!!!

susan