This is virtually as-is from the macro recorder

Insert, Object, Create from File,
tick Display as object
Browse

Sub Macro1()

ActiveSheet.Range("B2").Activate

Call ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Documents and Settings\Owner\My Documents\myWord.doc", _
Link:=False, _
DisplayAsIcon:=True, _
IconFileName:= _
"C:\WINDOWS\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe",
_
IconIndex:=0, _
IconLabel:= _
"C:\Documents and Settings\Owner\My Documents\myWord.doc")
End Sub

Regards,
Peter T


"Joyce" wrote in message
...
Hello,
I'm using the following code to assist users in inserting files into the
Excel worksheet. It works fine, except that:

1. It shows the entire path - I'd like to see just the file name
2. It shows the Excel icon, even if it's a Word file. I know that it's
because that is written in the code and know I can specify Word, etc., but
can I change that so that the correct icon is displayed

Thanks.

ActiveSheet.Unprotect

'INSERT.OBJECT?(object_class, file_name, link_logical,
' display_icon_logical, icon_file, icon_number, icon_label)
ExecuteExcel4Macro "INSERT.OBJECT?(,""C:\"",False,True,)"

ActiveSheet.Protect