Sub ki108()
ActiveWindow.WindowState = xlNormal
For Each sheet_name In Worksheets
    snam = sheet_name.Name
    Sheets(snam).Copy
  linname = ActiveWorkbook.LinkSources(xlLinkTypeExcelLinks)
  If IsEmpty(linname) Then
     ActiveWorkbook.Saved = True
     ActiveWorkbook.Close
  Else
  linn = Right(linname(1), 6)
  ActiveSheet.UsedRange.Select
  Set actv = Selection.Find(linn, , , xlPart, xlByColumns)
        If actv Is Nothing Then
            Else
              actv.Select
              r = ActiveCell.Row
              c = ActiveCell.Column
            End If
 
      MsgBox "このシ−トにリンクがあります" & Chr$(10) & _
      "シ−ト名は　" & snam & Chr$(10) & _
      "リンク元は　" & linname(1) & Chr$(10) & _
      "リンクの記述セル（" & r & "行、" & c & "列）"
    ActiveWindow.WindowState = xlMinimized
  End If
Next
End Sub