[451x396]
[375x535]
[592x150]
[280x22]
[600x450]
[530x699]
[386x525]
Dim inShape As InlineShape
Dim inObj As Object
Set inShape = Selection.InlineShapes.AddOLEObject(ClassType:="Excel.Sheet.8", FileName:= _
"", LinkToFile:=False, DisplayAsIcon:=False)
inShape.OLEFormat.Activate
Set inObj = inShape.OLEFormat.Object