ActiveSheet.OLEObjects("CBoxConc").object.Text= "MyText"

ActiveSheet.OLEObjects("CBoxConc").object.Listinde x= 1

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"RCL" wrote in message
oups.com...
I have inserted some objects in my sheet (combo box, option buttons)

This code works perfect:
ActiveSheet.OLEObjects("CBoxConc").ListFillRange = "ProdProductos"

But this one returns an error 438:
ActiveSheet.OLEObjects("CBoxConc").Text= "MyText"

This one returns an error 438 too:
ActiveSheet.OLEObjects("CBoxConc").List Index = 1

Any help or suggestion???

Thanks in advance !