Всем привет! Пытаюсь перебрать несколько листов, скопировать их в новые книги и присвоить книгам имена этих листов. Перебор работает на других задачах, с этим все хорошо. Проблема только с созданием книги и присвоением имени.
Код
Dim WsAr, i&
WsAr = Array("СФ", "ЮФ", "МФ")
For i = LBound(WsAr) To UBound(WsAr)
With Worksheets(WsAr(i))
iPath = ActiveWorkbook.Path
newbookname = .Name
'Сюда нужно вставить операцию по созданию новой книги с присвоением ей имени переменной newbookname
'и сохранять ее в iPath (папка с исходной книгой)
End With
Next