Сохранение листов книги как отдельных файлов

For Each cell in ActiveSheet.UsedRange.Cells
   cell.Formula = cell.Value
Next cell

ThisWorkbook.Sheets("SHEET3").Copy
ActiveWorkbook.SaveAs "C:\table.htm", fileformat:=44 
ActiveWorkbook.Close

    p = ActiveWorkbook.Path
    Sheets("Лист2").Copy
    ActiveWorkbook.SaveAs Filename:= p & "\Лист2.csv", FileFormat:=xlCSV
    ActiveWindow.Close

    For Each s In ActiveWorkbook.Worksheets    'проходим по всем листам в активной книге
        if s.Visible = False Then s.Copy       'если лист скрыт, то копируем его в новый файл
    Next

Set wb = ActiveWorkbook
WorkbookLinks = wb.LinkSources(Type:=xlLinkTypeExcelLinks)
        If IsArray(WorkbookLinks) Then
            For i = LBound(WorkbookLinks) To UBound(WorkbookLinks)
                wb.BreakLink Name:=WorkbookLinks(i), Type:=xlLinkTypeExcelLinks
            Next i
        End If

Range("A1:B2").Copy
Workbooks.Add
ActiveSheet.Paste 

Sub SplitSheets2()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                                'проходим по всем листам активной книги
        s.Copy                                                 'сохраняем лист как новый файл
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"  'сохраняем файл
        ActiveWorkbook.Close False               'закрываем созданный файл
    Next
    End Sub 

Sub SplitSheets2()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                 
     s.Copy                         
     ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".txt" 
    ActiveWorkbook.Close
    Next
End Sub

FileFormat:=xlText 

 
Sub SplitSheets2()
    Dim s As Worksheet
    Dim wb as Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                 'проходим во всем листам активной книги
     s.Copy                         'сохраняем лист как новый файл
     ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & s.Range("A22") & ".xlsx"  'сохраняем файл
    Next
End Sub

        ActiveWindow.SaveAs AW.Path & "\" & Range("M1") & ".xlsx"  'сохраняем файл 

Sub м09_Смета_в_отдельную_книгу()

    Dim AW As Window
    Set AW = ActiveWindow
    For Each s In AW.SelectedSheets
        Set TempWindow = AW.NewWindow    'создаем отдельное временное окно
        s.Copy                           'копируем туда лист из выделенного диапазона
        TempWindow.Close                 'закрываем временное окно
        For Each Cell In ActiveSheet.UsedRange.Cells 'перевод формул в значения
        Cell.Formula = Cell.Value
        Next Cell
        ActiveWindow.SaveAs AW.Path & "\" & Range("M1") & ".xlsx"  'сохраняем файл
        ActiveWindow.Close False               'закрываем созданный файл
    Next

End Sub

s.ExportAsFixedFormat Type:=xlTypePDF, Quality:=xlQualityMinimum, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= True
 

Sub SplitSheets2()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets
       s.Copy
        For Each cell In ActiveSheet.UsedRange.Cells
   cell.Formula = cell.Value
Next cell
        ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"
    Next
End Sub

Sub SplitSheets5()
    Dim s As Worksheet
 
    Dim AW As Window
    Set AW = ActiveWindow
    For Each s In AW.SelectedSheets     
   s.ExportAsFixedFormat Filename:=ThisWorkbook.Path & "\" & ThisWorkbook.Name & "-" & s.Name & ".pdf", Type:=xlTypePDF
    Next s
End Sub

Sub PDF()  
 
Dim s As Worksheet 
For Each s In ActiveWindow.SelectedSheets 
   s.ExportAsFixedFormat Filename:= _ 
   ThisWorkbook.Path & "\" & s.Name & ".pdf", _ 
   Type:=xlTypePDF
Next s

End Sub

Sub SplitSheets2()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    For Each s In wb.Worksheets                                 'проходим во всем листам активной книги
        If s.Visible = True Then
            s.Copy                                                  'сохраняем лист как новый файл
            ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"  'сохраняем файл
            ActiveWorkbook.Close False                              'закрываем созданный файл
        End If
    Next
End Sub

ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"  'сохраняем файл

Sub CopyWsh3() 

   ActiveSheet.Copy
   ActiveWorkbook.SaveAs "/Users/sergei/Desktop/" & Range("J4").Value & ".xlsx" 'имя файла берем из ячейки J4


   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
       "/Users/sergei/Desktop/" & Range("J4").Value & ".pdf", Quality:=xlQualityStandard, _
       IncludeDocProperties:=ИСТИНА, IgnorePrintAreas:=ЛОЖЬ, OpenAfterPublish:= _
       ЛОЖЬ
End Sub
 

Sub SplitSheets4()    Dim CurW As Window    Dim TempW As Window    Set CurW = ActiveWindow    Set TempW = ActiveWorkbook.NewWindow    CurW.SelectedSheets.Copy    TempW.CloseEnd Sub

Sub SplitSheets6()
Range("A1:E129").Copy ' Диапазон копирования
myName = Cells(4, 9).Value ' Название файла будем брать из I4


Workbooks.Add ' создаём пустую книгу
ActiveSheet.Paste ' Вставляем ранее выделенный диапазон

' Переводим формулы в значения
   For Each cell In ActiveSheet.UsedRange.Cells
   cell.Formula = cell.Value
   Next cell
   
' Переименовываем получившийся лист
Sheets("Лист1").Name = "Заказ"
' Сохраняем книгу в ..
        ActiveWorkbook.SaveAs "C:\Users\user\Desktop\1" & "\" & myName & ".xlsx", FileFormat:=51
' Закрываем книгу
    ActiveWorkbook.Close
' Конец
End Sub 

Sub SplitSheets()
    Dim wb As Workbook
    Dim s As Worksheet
    Dim Path_f, UserName As String
    UserName = Environ("USERNAME")
Application.ScreenUpdating = False: Application.DisplayAlerts = False
'проверка наличия необходимых каталогов (если не создан такой - создаётся)
If Dir("C:\Users\" & UserName & "\Desktop\Narez\", vbDirectory) = "" Then
MkDir "C:\Users\" & UserName & "\Desktop\Narez\"
End If
    Path_f = "C:\Users\" & UserName & "\Desktop\Narez\"
    Set wb = ActiveWorkbook
    On Error Resume Next
    For Each s In wb.Worksheets 'цикл во всем листам активной книги
        If s.Visible = True Then 'игнор скрытых данных
            s.Copy 'копирование данных листа
            'убийство формул
            Cells.Select
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            ActiveWorkbook.SaveAs Path_f & s.Range("C1") 'сохраняем файл с именем из ячейки C1
            ActiveWorkbook.Close False 'закрыть созданную книгу
        End If
    Next
Application.ScreenUpdating = True: Application.DisplayAlerts = True
MsgBox "Файл разрезан на книги.."
End Sub