My first ever post so please be gentle I have a routine that asks the users to pick a folder - the routine then uses Application.Filesearch to obtain a list of all of the files, then embeds them (regardless of type) into a blank spreadsheet - 1 embedded object (file) per row. The code to embed the objects is:

   ActiveSheet.OLEObjects.Add fileName:=.FoundFiles(i), Link:=False, DisplayAsIcon:=True, IconFileName:=sIconFile, _
IconIndex:=0, IconLabel:=Dir(Application.FileSearch.FoundFiles.Item(i))
The problem I have is that this method seems to open the Excel spreadsheet when embedding it. This caused the code to fail if it tried to embed two files with the same filename. I have managed to include a piece of code to close any open Excel spreadsheets apart from the one running. My one remaining problem is that even though I have used
Application.DisplayAlerts = False
when the routine encounters an Excel file with links in it, at the point of embedding it into the spreadsheet the 'Update Links' prompt appears. How do I stop this from happening?