Подстановка имен книг

[mephist]

Необходим сбор данных из нескольких книг в одну. Код написан, все супер, только начала выскакивать ошибка
Compile error: Procedure too large
Хочу его уменьшить. Такой код:

    With ThisWorkbook.Worksheets(13).UsedRange: N = .Row + .Rows.Count - 1: End With
    Application.ScreenUpdating = False
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "mh.xlsx")
    With Workbooks.Open(Filename, , True)
        .Worksheets(1).Unprotect
        .Worksheets(13).UsedRange.Copy ThisWorkbook.Worksheets(13).Cells(N + 1, "A")
        For i = 1 To 10
            ThisWorkbook.Worksheets(13).Rows(N + 1).Delete Shift:=xlUp
        Next
        .Close False
    End With

повторяется много раз для разных имен книг(соответсвенно меняется только один параметр). Подскажите пожалуйста, возможно ли в каком-нибудь массивчике записать имена книг и затем в цикле подставлять имена книг.
То есть примерно так:

Names[mn,mh,hg,df,fg,gh,ty]
For i=1 to 10
    With ThisWorkbook.Worksheets(13).UsedRange: N = .Row + .Rows.Count - 1: End With
    Application.ScreenUpdating = False
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "%NAMES[i].xlsx%")
    With Workbooks.Open(Filename, , True)
        .Worksheets(1).Unprotect
        .Worksheets(13).UsedRange.Copy ThisWorkbook.Worksheets(13).Cells(N + 1, "A")
        For i = 1 To 10
            ThisWorkbook.Worksheets(13).Rows(N + 1).Delete Shift:=xlUp
        Next
        .Close False
    End With
Next

[The_Prist]

Попробуйте так

Dim asFileNames, li as long
asFileNames = Array("Файл1","Файл2","Файл3","Файл4")
For li = lBound(asFileNames) to Ubound(asFileNames)
    With ThisWorkbook.Worksheets(13).UsedRange: N = .Row + .Rows.Count - 1: End With
    Application.ScreenUpdating = False
    Filename = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, asFileNames(li) & ".xlsx")
    With Workbooks.Open(Filename, , True)
        .Worksheets(1).Unprotect
        .Worksheets(13).UsedRange.Copy ThisWorkbook.Worksheets(13).Cells(N + 1, "A")
        For i = 1 To 10
            ThisWorkbook.Worksheets(13).Rows(N + 1).Delete Shift:=xlUp
        Next
        .Close False
    End With
Next li

[IgorGO]

возможно ли в каком-нибудь массивчике записать имена книг и затем в цикле подставлять имена книг

они уже в коллекции Workbooks, если открыты.