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