Dim xws As Excel.Worksheet
 Dim fcb As MSForms.ComboBox
 Set xws = ... 'полученная как-нибудь ссылка на Excel.Worksheet
 Set fcb = xws.OLEObjects("Combobox1").Object
 ... 'имеем что хотим от fcb
 Set fcb = Nothing
 Set xws = Nothing

Public Property Get Combobox1Value() As String
 Combobox1Value = ComboBox1.Value
End Property

 Dim xws As Object 'Object, потому что собираемся использовать позднее связывание
                   'при обращении к свойству
 Set xws = ... 'полученная как-нибудь ссылка на Excel.Worksheet
 Debug.Print xws.Combobox1Value
 Set xws = Nothing