TaskMaster
Board Regular
- Joined
- Oct 15, 2020
- Messages
- 75
- Office Version
- 365
- 2016
- Platform
- Windows
Hi all,
Im trying to get the workbook links locations listed into my workbook. I have the following that works okay but would like to amend so that it lists them in the summary tab starting in K31 rather than a new workbook. Is there a quick edit that could be made to achieve this?
Im trying to get the workbook links locations listed into my workbook. I have the following that works okay but would like to amend so that it lists them in the summary tab starting in K31 rather than a new workbook. Is there a quick edit that could be made to achieve this?
VBA Code:
Sub ListLinks()
Dim wb As Workbook
Set wb = Application.ActiveWorkbook
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
wb.Sheets.Add
xIndex = 1
For Each link In wb.LinkSources(xlExcelLinks)
Application.ActiveSheet.Cells(xIndex, 1).Value = link
xIndex = xIndex + 1
Next link
End If
End Sub