Code
ReDim arr(0 To lastrow - 1, 0 To 4)
For Each wb In Application.Workbooks
If wb.Name <> "Offline Deal prototype.xlsm" Then
wb.Sheets("customer").Activate
For i = 1 To lastrow
For j = 1 To 5
arr(i - 1, j - 1) = Cells(i, j).Value
Next j
Next i
End If
Next wb
Display More
The line with bold letters shows subscript out of range error
Admin edit: