Renaming inserted Object

[axmed.cm]

Dear All

Hope you are doing well.

When object/shape is inserted in spreadsheet it aoutomatically takes a name like "Object##", Is there a way to give specific name to taht object?

for example i loaded a file into the sheet as object I want to rename it as "Report1", kindly want to know if that's possible.

Sub LoadReport1()    
Filename = Application.GetOpenFilename(Title:="Please choose a file to open", FileFilter:="Excel Files *.xls* (*.xls*),")
    ActiveSheet.OLEObjects.Add(Filename:=Filename, Link:=False, DisplayAsIcon:=True, IconFileName:= _
    "C:\Windows\Installer\{90150000-0011-0000-1000-0000000FF1CE}\xlicons.exe", _
    IconIndex:=0, IconLabel:= _
    Filename).Select
End Sub

Thank you

[Bob Phillips]

Try this

Sub LoadReport1()
Dim myBook As Object
Dim Filename As String

    Filename = Application.GetOpenFilename(Title:="Please choose a file to open", _
                                           FileFilter:="Excel Files *.xls* (*.xls*),")
    Set myBook = ActiveSheet.OLEObjects.Add(Filename:=Filename, _
                                            Link:=False, _
                                            DisplayAsIcon:=True, _
                                            IconFileName:="C:\Windows\Installer\{90150000-0011-0000-1000-0000000FF1CE}\xlicons.exe", _
                                            IconIndex:=0, _
                                            IconLabel:=Filename)
    myBook.Name = "MyBook"
End Sub

[axmed.cm]

Dear Xld

Thank you,

SOLVED