Sub Копируем_Без_Связей()
Set currentBook = ThisWorkbook
    sheetsToCopy = Array("Лист1", "Лист2")
    Set newBook = Workbooks.Add
        For Each sheetName In sheetsToCopy
        currentBook.Sheets(sheetName).Copy After:=newBook.Sheets(newBook.Sheets.Count)
    Next sheetName
    filePath = currentBook.Path & "\Новый файл Эксель.xlsb"
    newBook.SaveAs Filename:=filePath, FileFormat:=xlExcel12
    originalFileName = currentBook.Name
    For Each ws In newBook.Worksheets
        ws.Cells.Replace What:="[" & originalFileName & "]", Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Next ws
    newBook.Save
End Sub