|  

» List all the workbook links in a workbook using VBA in Microsoft Excel

Place the code below into the standard module
Sub ListLinks()
    Dim aLinks As Variant
    aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(aLinks) Then
        Sheets.Add
        For i = 1 To UBound(aLinks)
            Cells(i, 1).Value = aLinks(i)
        Next i
    End If
End Sub


Rate This Tip
12 34 5
Rating: 4.04     Views: 19380
No comments have been submitted.
Click here to post comment
For Registered Users
Name
Comment Title
Comments