Sub リンク調査()

  If IsArray(ActiveWorkbook.LinkSources(xlExcelLinks)) Then

    MsgBox "他のブックへのリンクがあります！"

    For Each ls In ActiveWorkbook.LinkSources

        MsgBox ls

        ActiveWorkbook.BreakLink Name:=ls, Type:=xlExcelLinks     "リンクを削除

    Next

  Else

    MsgBox "他のブックへのリンクはありません。"

  End If

End Sub