Sub Листы_как_файлы()
Dim wsh As Worksheet
For Each wsh In ActiveWorkbook.Worksheets
wsh.Copy
Next wsh
End Sub
Этот макрос разобьет книгу на отдельные файлы, вытащив каждый лист.
Супер, спасибо!
Да это круто, а как в офисе 16 сохранить их сразу, когда вкладок 100, по одному задолбаешься