Ошибка «Недопустимый вызов процедуры или аргумент» при выполнении цикла Dir в VBA

Question

Я получаю эту ошибку при циклическом просмотре файлов

"Недопустимый вызов процедуры или аргумент"

Приведенный ниже код должен сканировать папку, открывать первый файл, изменять его, а затем переходить кследующий Excel и сделать то же самое снова.Проблема в том, что он не распознает другие файлы в папке (кроме первого) и возвращает вышеуказанную ошибку.Смотрите ниже код:

xExcelFile = Dir(xSPath & "*.xls*")
Do While xExcelFile <> ""
    'more code
     xExcelFile = Dir
Loop

Answer 1

Я отвечу сам, у меня есть дубликат Dir () в моем макросе.