Bem vindo de volta, @kardoso

Tem como fazer via VBA sim, mas precisaria saber mais detalhes dos caminhos de seus arquivos, qual o arquivo mandatário (se existir um central), enfim.

Enquanto isso não é esclarecido, dá uma pensada sobre essa rotina que fiz numa ocasião que mudamos de servidor e um suplemento que fiz ficava quebrado por não encontrar o caminho... talvez te dê uma luz para adaptar à sua situação.

Se não conseguir, retorne com mais informações.

Sub AtualizaVínculos()
  Dim víncs, vínc
   víncs = ActiveWorkbook.LinkSources(XlLink.xlExcelLinks)
  If Not IsEmpty(víncs) Then
    For Each vínc In víncs
      If vínc = "\\servidor\compartilhar\ZetasTools\AddIns\EBUtils.xlam" Then
        ActiveWorkbook.ChangeLink vínc, ThisWorkbook.FullName, xlLinkTypeExcelLinks
      End If
    Next vínc
  End If
End Sub