1 2 3 4 5 | Dim oOleObject As InlineShape Set oOleObject = Selection.InlineShapes.AddOLEObject(ClassType:="Excel.Sheet.8", FileName:="C:\Export.xls", LinkToFile _:=False, DisplayAsIcon:=False)Application.WindowState = wdWindowStateNormal |