In my version of Excel (O365) the type of linksource for a link to an Excel workbook is xlExcelLinks, not xlLinkTypeExcelLinks
linkSources = ThisWorkbook.linkSources(xlExcelLinks)
You could use the number 1 instead:
linkSources = ThisWorkbook.linkSources(1)
What version of Excel are you using?