Deleting an embedded file

[bruty]

I have the following code used to attach a file to a spreadsheet:

VarFile = Application.GetOpenFilename("All Files (*.*), *.*")
        If VarFile <> False Then
            ActiveSheet.OLEObjects.Add(Filename:= _
            VarFile, Link:= _
            False, DisplayAsIcon:=True, IconFileName:= _
            "C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
            IconIndex:=0, IconLabel:= _
            VarFile).Select
        End If

Is there anyway of giving this object a name? I need to name it so that I can easily delete the file.

If I can't name it, is there an easy way to select and delete the file?

 

[Andrew Poulsom]

Like this?

Sub Test()
    VarFile = Application.GetOpenFilename("All Files (*.*), *.*")
    If VarFile <> False Then
        ActiveSheet.OLEObjects.Add(Filename:= _
        VarFile, Link:= _
        False, DisplayAsIcon:=True, IconFileName:= _
        "C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
        IconIndex:=0, IconLabel:= _
        VarFile).Select
        Selection.Name = "VarFile"
    End If
End Sub
 
Sub Delete()
    ActiveSheet.OLEObjects("VarFile").Delete
End Sub

 

[bruty]

So simple.

Cheers.

 

[bruty]

Don't know the problem, but this doesn't seem to work.

Using this toname the file:

VarFile = Application.GetOpenFilename("All Files (*.*), *.*")
        If VarFile <> False Then
            ActiveSheet.OLEObjects.Add(Filename:= _
            VarFile, Link:= _
            False, DisplayAsIcon:=True, IconFileName:= _
            "C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe", _
            IconIndex:=0, IconLabel:= _
            VarFile).Select
            Selection.Name = "JobDesc"
        End If

And this to delete the object:

'On Error Resume Next
    'ActiveSheet.Shapes("JobDesc").Delete
    'ActiveSheet.OLEObjects("VarFile").Delete

They are messaged out at the moment because neither of them work - I tried the shapes bit instead of OLEObjects as that's what came up when I recorded a macro delting the file.

 

[bruty]

Ignore me - realised the name hasn't changed from VarFiel to Job Desc