Prevent Open Resource Pool Dialogue box when opening MPP Project File using VBA

Hi

I have some code that I am using to Open a Microsoft Project file but despite all efforts I have been unable to prevent the opening dialogue box from appearing or auto answering it.

I have tried "Application.EnableEvents = False", "Application.DisplayAlerts = False" and .FileOpenEx all to no avail.

I would appreciate some help. Thanks in advance.

    Public Sub extract_data()
    
    Dim appProj As MSProject.Application
    Dim aProg As MSProject.Project
    Dim app
    Dim mppApp As MSProject.Application
    Dim Tasks As Tasks
    Dim mpp_file_name As String
    Dim j As Integer
        
        Set destination_ws = ThisWorkbook.Worksheets("Imported Vehicles")
        destination_ws.Cells.Clear
        
        file_location = ThisWorkbook.Worksheets("Control Panel").Range("F19").Value
        file_name = ThisWorkbook.Worksheets("Control Panel").Range("F20").Value
        file_location_and_name = file_location & file_name
        
        Set appProj = CreateObject("Msproject.Application")
           
        '---------------------------------------------------------------------
        'Set appProj = GetObject(, "MSProject.Application")
        'If IsEmpty(appProj) Then Set appProj = CreateObject("MSProject.Application")
        'appProj.FileOpenEx Name:=file_location_and_name, ReadOnly:=True
        '---------------------------------------------------------------------
        
        Application.EnableEvents = True
        Set mppApp = CreateObject("msproject.application")
        
        mppApp.DisplayAlerts = False
        mppApp.FileOpen Name:=file_location_and_name, ReadOnly:=True ' Opens file as Read Only
        
        mppApp.DisplayAlerts = False
        Application.EnableEvents = True
        
        '--------------------------- WAIT FOR IE TO CATCH UP --------------------------
        newHour = Hour(Now())
        newMinute = Minute(Now())
        newSecond = Second(Now()) + 3
        waitTime = TimeSerial(newHour, newMinute, newSecond)
        Application.Wait waitTime
        '------------------------------------------------------------------------------
        
        Set aProg = mppApp.ActiveProject
        'aProg.Visible = True
        
        'Application.SendKeys "{TAB}"   'Enter to OK
        'Application.SendKeys "^~"   'Enter yes to OK
        
        'COPY DATA ACROSS code

        Set mpApp = Nothing
        DoEvents
        MsgBox "Data from MS Project File Copied", vbInformation    
    End Sub