Whats wrong with my CHANGELINK code?

[bill]

<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>

 

[bill]

I suppose theres nothing wrong with it...in that it DOES work IF both old/new source have the same NAMED target sheet.

If not, it bombs outs.

Any idea how to specify the SHEET when changing the link?