ActiveDocument.InlineShapes.AddOLEObject ClassType:="Excel.Sheet", DisplayAsIcon:=False, Range:=ActiveDocument.Paragraphs(2).Range