Excel VisualBasic Script

Sub FixLinks(wb As Workbook, sOldLink As String, sNewLink As String) 
    Dim avLinks As Variant 
    Dim nIndex As Integer 
    avLinks = wb.LinkSources(xlExcelLinks) 
    If Not IsEmpty(avLinks) Then 
        For nIndex = 1 To UBound(avLinks) 
            If _ 
            StrComp(avLinks(nIndex), sOldLink, vbTextCompare) = 0 Then 
                wb.ChangeLink sOldLink, sNewLink, xlLinkTypeExcelLinks 
                Exit For 
            End If 
        Next 
    End If 
End Sub