<PRE>Sub MyLinks()
Dim aLinks As Variant
Dim i As Integer
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
ActiveWorkbook.ChangeLink Name:=aLinks(1), NewName:=ActiveWorkbook.Name, Type:=xlExcelLinks
Next i
End If
End Sub</PRE>
Dim aLinks As Variant
Dim i As Integer
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
ActiveWorkbook.ChangeLink Name:=aLinks(1), NewName:=ActiveWorkbook.Name, Type:=xlExcelLinks
Next i
End If
End Sub</PRE>