Sub SplitSheets777()
''Выделяем листы, запускаем макрос, сохраняет выделенные листы, с разрывом ссылок на старый файл в путь указанный в последней строке.
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    
    Dim CurW As Window
    Dim TempW As Window
    Set CurW = ActiveWindow
    Set TempW = ActiveWorkbook.NewWindow
    CurW.SelectedSheets.Copy
    TempW.Close
    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
    ActiveWorkbook.SaveAs "c:\Users\me\Documents\папка для файла" & ActiveSheet.Name & ".xlsx"  
End Sub

Sub SplitSheets_cop_disconnect()
    Dim s As Worksheet
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    
    Dim CurW As Window
    Dim TempW As Window
    Set CurW = ActiveWindow
    Set TempW = ActiveWorkbook.NewWindow
    CurW.SelectedSheets.Copy
    TempW.Close
    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
        
ActiveWorkbook.SaveAs wb.Path & "\" & s.Name & ".xlsx"

Sub zamena() 
    Range("C9") = Cells(126, 7).Offset(, 16).Address(0, 0, xlA1)
End Sub