Using Macro to embed a selected word document entered in the input box

[jahan]

Hello,

I can embed a blank document into a cell using a macro assigned to a command button.

But what I want to do is by clicking on a command button embed a specific file entered in the input box in the active cell.

I keep having the message run-time error '1004': Cannot insert object.

Can anyone help?

I recorded the macro first.

ActiveCell.Select
ActiveSheet.OLEObjects.Add(Filename:="C:\Users\user-jahan\Documents\Embed Doc",Link:=True, DisplayAsIcon:=True, IconFileName:="C:\Windows\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe",IconIndex:=0, IconLabel:="C:\Users\user-jahan\Documents\Embed Doc").Select

and then edited it:

Private Sub CommandButton8_Click()
Dim strFileName As String
Dim strFileLocation As String


strFileName = InputBox("Enter Value", "My Inputbox")


strFileLocation = Join(Array("Filename:=""C:\Users\user-jahan\Documents\" + strFileName + ",Link:=True, DisplayAsIcon:=True, IconFileName:=" _
' + """C:\Windows\Installer\{90110409-6000-11D3-8CFE-0150048383C9}\wordicon.exe""," _
' + "IconIndex:=0, IconLabel:=""Embed Doc""")


ActiveCell.Select
ActiveSheet.OLEObjects.Add(strFileLocation).Select
End Sub