VBA LOOP

[sh1pley]

Hi

I want to loop through some code until this statement is true:

ActiveWorkbook.ChangeLink Name:=OldPath, NewName:=NewPath, Type:=xlExcelLinks

Any ideas?

 

[Andrew Poulsom]

Here is a function that returns True if the argument passed to it is the path to a Link in the workbook:

Function IsLinkSource(LinkPath As String) As Boolean
    Dim i As Integer
    On Error Resume Next
    i = WorksheetFunction.Match(LinkPath, ThisWorkbook.LinkSources, False)
    If Err = 0 Then
        IsLinkSource = True
    Else
        Err.Clear
        IsLinkSource = False
    End If
End Function

I tested it like this:

Sub T()
    Const OldPath As String = "P:\TEMP\MrExcel\FileLinks\Source.xls"
    MsgBox IsLinkSource(OldPath)
End Sub