от
'       Loop through files in directory
        j = 1
        For Each MyFile In MyFiles
'           Limit files by file extension
            If InStr(1, MyFile.Name, FileExt) <> 0 Then
'               Explode file name into array and only pull files with defined dept codes
                Dim toSplitFileName As Variant
                toSplitFileName = Split(MyFile.Name, "

Это бросает ошибку на этой линии: 

Result(j) = MyFile.Name
Я попытался передвинуть с помощью оператора redim вокруг, но все еще получить тот же результат.

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.
Анти-спам проверка:
Чтобы избежать проверки в будущем, пожалуйста войдите или зарегистрируйтесь.
...