Разрыв связей при экспорте листов в отдельный файл

[puh625]

Добрый вечер,

Есть готовый макрос который решает задачу отправки с кнопки заданных в ячейке названий листов, в нужную папку и под нужным именем. Все работает отлично с одним НО - остаются в новом файле связи с исходным файлом.

Помогите, пожалуйста допилить макрос чтобы разрывались связи, но не все значением стало, а только оборвались связи (как делаем обычно вручную: Данные - Изменить связи - Разорвать связи), но только зашить в базовый макрос.
4 строка (.BreakLink...) почему то не срабатывает.

Sub Макрос1()
Dim p: p = Range("B1") & "\" & Range("B2") & ".xlsx"
  Sheets(Split(Range("B3"), "; ")).Copy
  ActiveWorkbook.BreakLink Name:=ThisWorkbook.FullName, Type:=xlExcelLinks
  ActiveWorkbook.SaveAs Filename:=p, FileFormat:=xlOpenXMLWorkbook _
    , CreateBackup:=False, AddToMru:=False
  ActiveWorkbook.Close 0
End Sub

Примечание: некоторые листы могут быть защищены паролем. В своем примере один лист защитил.