Открытие встроенного файла Excel приводит к сбою Excel

Question

У меня есть файл, встроенный в рабочую книгу, так как мне нужно, чтобы все пользователи имели к нему доступ, чего может не произойти, если он находится в сети. У меня есть этот код для извлечения его из Excel на временный диск пользователя.

Когда я выполняю код, он работает нормально, но падает при выполнении.

Private Function DownloadOutlookFile()
    Dim oEmbFile As Object
    Dim x As String: x = ThisWorkbook.Name
    Application.DisplayAlerts = False
    Set oEmbFile = ThisWorkbook.Sheets(SO_File.Name).OLEObjects(1)
    oEmbFile.Verb Verb:=xlPrimary
    Workbooks("Worksheet in " & x).SaveAs FileName:="C:\Temp\Supression.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
    Workbooks("Worksheet in " & x).Close
End Function

РЕДАКТИРОВАТЬ: Удален код сна, поскольку он не помогает и только тестировал.