VBA L oop, который запускает внешний макрос во всех файлах в папке

Question

Я запускаю следующий код, предназначенный для l oop через несколько рабочих книг, запускаю макрос для каждой, закрываю и сохраняю каждую. Однако он останавливается после запуска первого файла в папке. Есть мысли, почему он не распознает другие файлы? Сообщение об ошибке не заполняется.

Option Explicit

Sub OpenRunCode()

Const sPath = "\\drive\folder\"
Dim sFil As String
Dim owb As Workbook
Application.DisplayAlerts = False

sFil = Dir(sPath & "*File.xlsm")

Do While sFil <> ""
    Set owb = Workbooks.Open(sPath & sFil)
        Application.Run ("'" + sFil + "'!Macro")
        owb.Save
        owb.Close
    sFil = Dir()
Loop

End Sub