Please review following code...

Set objExcel = GetObject(, "Excel.Application")
Set objWorkSheet = objExcel.ActiveSheet

'##
Set objShape = objWorkSheet.Shapes.AddOLEObject (ClassType:="MyOCX.MyControl")

'**
Set objShape = objWorkSheet.Shapes.AddOLEObject(ClassType:="Word.Document.8")

The above code inserts an object in active worksheet of currently running
Excel application.

If I am comment out ## marked statements, uncomment the ** marked statements
and run the code, the Word object gets inserted in Excel and I am able to
select the word object in Excel.

If I am comment out ** marked statements, uncomment the ## marked code and
run the code, MyControl object gets inserted in Excel. But I am not able
to selec the Object in Excel.

Anyone, please help.
Sunil