return .caption text of worksheet control
 

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

return .caption text of worksheet control
 

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

--
Regards,
Tom Ogilvy


"Susan" wrote:

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

return .caption text of worksheet control
 

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


On May 4, 9:36 am, Tom Ogilvy
wrote:
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

--
Regards,
Tom Ogilvy



"Susan" wrote:
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- Hide quoted text -

- Show quoted text -