Pages

Saturday, April 19, 2014

Display External Links if any in the workbook

Macro to pop-up the full path of external workbooks used in the formula's 

Sub external_lins()
    Dim extlinks
    Dim j As Long
    extlinks = ThisWorkbook.LinkSources(xlExcelLinks)
    If Not IsEmpty(extlinks) Then
        For j = LBound(extlinks) To UBound(extlinks)
            MsgBox extlinks(j)
        Next
    End If

End Sub


No comments:

Post a Comment