Шняга

Sub readFile()
Dim ArrayStr(1 To 10) As String 'создаем масив строк на 10 эл-тов
Dim stroka As String

'================================инициализация======
ArrayStr(1) = "C:\Users\Met\Desktop\1805\010212.xls"
ArrayStr(2) = "C:\Users\Met\Desktop\1805\010312.xls"
ArrayStr(3) = "C:\Users\Met\Desktop\1805\010412.xls"
ArrayStr(4) = "C:\Users\Met\Desktop\1805\010512.xls"
ArrayStr(5) = "C:\Users\Met\Desktop\1805\010612.xls"
ArrayStr(6) = "C:\Users\Met\Desktop\1805\010712.xls"
ArrayStr(7) = "C:\Users\Met\Desktop\1805\010812.xls"
ArrayStr(8) = "C:\Users\Met\Desktop\1805\010912.xls"
ArrayStr(9) = "C:\Users\Met\Desktop\1805\011012.xls"
Dim oXL As Workbook
For wb = 1 To 9 'цикл по массиву т.к. мне не надо было так их много =)

Set oXL = Workbooks.Open(ArrayStr(wb)) ' !!! открытие документа
'внешний цикл по рядам
Dim i As Integer, j As Integer
For i = 4 To 34
For j = 7 To 48
  If ThisWorkbook.Sheets(1).Cells(j, i).Locked Then
ThisWorkbook.Sheets(1).Cells(j, i).Value = oXL.Sheets(1).Cells(j, i).Value + ThisWorkbook.Sheets(1).Cells(j, i).Value
End If
Next j
Next i

oXL.Close ' закрываем документ
Next wb
Set oXL = Nothing ' обнуляем переменную

End Sub