Dir Function not returning next file after Custom Function called

[Friel300]

Solved on other forum (link in Original Post)

The second function also has a Dir() in it:

        sImpFile = Dir(sImportFile)

This will "reset" the progress of the Dir() in the calling Sub and that's why it doesn't find the next file. Change this:

        sImpFile = Dir(sImportFile)
        Application.Workbooks.Open Filename:=sImportFile, UpdateLinks:=False
         
        Set wbBk = Workbooks(sImpFile)

to this:

        Set wbBk = Application.Workbooks.Open(Filename:=sImportFile, UpdateLinks:=False)

WBD