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
Bookmarks