Macro loops through files but I am prompted with Continue/Exit Links on each file open

This loops through all files in a folder and applies a macro to them. All of the files have automatic links in them. Whereas I want this to run on several hundred files while I watch TV, I am being bothered by each file open with the "Continue/Edit Links prompt. The links no longer work and no updating needs done, so I want the macro to just assume Continue/Do not attempt to update links.

Sub Macro1()
     '//Change the path to the main folder, accordingly
    Call RecursiveFolders("C:\Users\Me\Desktop\New folder\")
End Sub

Sub RecursiveFolders(ByVal MyPath As String)

    Dim FileSys As Object
    Dim objFolder As Object
    Dim objSubFolder As Object
    Dim objFile As Object
    Dim wkbOpen As Workbook
    
    Set FileSys = CreateObject("Scripting.FileSystemObject")
    Set objFolder = FileSys.GetFolder(MyPath)

    Application.ScreenUpdating = False
    
    For Each objSubFolder In objFolder.SubFolders
        For Each objFile In objSubFolder.Files
            Set wkbOpen = Workbooks.Open(FileName:=objFile)
             '//Change the name of your macro, accordingly
            Call Create_Import_Data
            wkbOpen.Close savechanges:=True
        Next
        Call RecursiveFolders(objSubFolder.Path)
    Next

    Application.ScreenUpdating = True
    
End Sub

Have you tried setting "Display Alerts" to False?

So where you have

Application.ScreenUpdating = False

You could use

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

Set it back to True again at the end of your code.

BSB

Originally Posted by BadlySpelledBuoy

Have you tried setting "Display Alerts" to False?

So where you have

Application.ScreenUpdating = False

You could use

With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
End With

Set it back to True again at the end of your code.

BSB

Good. Works. Thanks!

Glad I could help

BSB