Индекс открытых файлов массива вне диапазона

Question

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

 Dim AllFiles() As String
 Dim count, test, StartRow, LastRow, LastColumn As Long    
 test = count
 Do While (test >= 0)
 Workbooks.Open Filename:=AllFiles(test) 'subscript out of range
 test = test - 1
 Loop

Answer 1

Это не устраняет основную причину (что бы это ни было), но является более естественным способом зацикливания массива

For test = UBound(AllFiles) to LBound(AllFiles) Step -1    
    Workbooks.Open Filename:=AllFiles(test)
Loop

Кстати, ваше нечеткое утверждение Dim count, test, StartRow, LastRow, LastColumn As Long объявляет все элементы, кроме LastColumn, как Variant