[blackeangel]

Проблема решена

Код:

arrStr = Split(s.Worksheets(1).Cells(z.Row, ipage), "!")

В этом была ошибка-брал значение не из той книги

Код: Set s = GetObject(n) » А это зачем?

Это чтоб открылся файл без визуализации