Sub Macro1()
Selection.InlineShapes.AddOLEObject ClassType:="Excel.Sheet.12", FileName _
:="C:\Test.xlsx", LinkToFile _
:=False, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{90140000-0011-0000-0000-0000000FF1CE}\xlicons.exe" _
, IconIndex:=1, IconLabel:="Test.xlsx"
End Sub