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