Sub ChangeLinks()
Dim strFile As String
Dim strNewFile As String
strFile = "C:\File1.xls"
strNewFile = "C:\File2.xls"
With ActiveWorkbook
.ChangeLink Name:=strFile, NewName:=strNewFile, Type:=xlExcelLinks
.UpdateLink Name:=strNewFile, Type:=xlExcelLinks
End with
End Sub