Ole Object Problems

[RCL]

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 !

 

[Bob Phillips]

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

ActiveSheet.OLEObjects("CBoxConc").object.Listindex= 1

--

HTH

Bob Phillips

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

 

[RCL]

Bob Phillips ha escrito:

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

ActiveSheet.OLEObjects("CBoxConc").object.Listindex= 1

--

HTH

Bob Phillips

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

Thank You Bob...very kind... it works fine !