Sub ki109()
Dim linname As Variant

linname = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
  If IsEmpty(linname) Then
      MsgBox "ExcelLinkは設定されていません"
  Else
      MsgBox linname(1) & "とリンクしています"
  End If
End Sub