Macro coding for inserting an object

Hello,

Before I go asking for favors I have been reading the forum for guidance for a while now and it has been very helpful. So thank you to everyone whom helps by responding to posts.

Recently I have been trying to put a template together for a group of computer literate older men so just explaining the directions to them wont cut it. What I have done is created a button with a macro which will allow them to insert a file, but once that file is inserted it wont open from other computers. I know that if you use "Insert Object" then "Create from file" it will solve this problem but I don't know how to create a macro which will do this.

My original coding is:


Sub btnAddFile_Click()

Dim vFile As Variant
vFile = Application.GetOpenFilename("All Files,*.*", Title:="Find file to insert")
If LCase(vFile) = "false" Then Exit Sub
ActiveSheet.OLEObjects.Add Filename:=vFile, Link:=True, DisplayAsIcon:=True, IconFileName:= _
"C:\WINDOWS\Installer\{AC76BA86-7AD7-1033-7B44-A94000000001}\PDFFile_8.ico", _
IconIndex:=0, IconLabel:=vFile

End Sub

Any help as to how to adjust would be greatly appreciated.

That was exactly it... I thought it would be the opposite for some reason. And I am sorry about the lack of code tags, please dont slap me. I will make sure to use code tags from this day forward. Thank you so very much.