Here is the code to select the files, yes it does loop through all the files and closes each one after each import.
Function FindFileLocation(initDir As String, header As String, Optional onlyFileName As String) As String
Dim gfni As adh_accOfficeGetFileNameInfo
FindNewFile:
If...