open_all_files_in_folder

'Open all files in a given folder

Sub OpenAllFilesInFolder()
    
    'target folder
    directory = "T:\Shared Documents\Knowledge Transfer\Tasks\Checklist" 
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set folder = FSO.GetFolder(directory)
    
    For Each file In folder.Files
        Workbooks.Open file
    Next file

End Sub