Link manipulation

Dim myLinks As Variant
Dim targetLinks As Variant

Sub getLinks()

Dim i As Integer

myLinks = ThisWorkbook.LinkSources(xlExcelLinks) 'https://docs.microsoft.com/en-us/office/vba/api/excel.xllink
'ThisWorkbook.UpdateLink( null , xlLinkTypeOLELinks) 'https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.updatelink
'https://www.mrexcel.com/board/threads/vba-open-source-links.345232/
Debug.Print "Link list:" & vbNewLine & Join(myLinks, vbNewLine) & vbNewLine & "End List" 'https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/join-function

Call filterLinks
Call updateSpecificLinks

MsgBox "Done!"

End Sub

Sub filterLinks()

Dim criterion As String
criterion = "Documents"

targetLinks = Filter(myLinks, criterion, True) 'https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/filter-function
Debug.Print "Target link list:" & vbNewLine & Join(targetLinks, vbNewLine) & vbNewLine & "End List"

End Sub

Sub updateSpecificLinks()

ThisWorkbook.UpdateLink (targetLinks) 'https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.updatelink

End Sub