Entiendo que al decir que colocaste un vínculo lo hiciste uno a uno

Para la próxima, pon el nombre del archivo en una celda, y luego utiliza la función HIPERVINCULO para crear el enlace al archivo, así es más sencillo de actualizar cuando se produzcan cambios.

En tu caso, podrías utilizar una macro para buscar y reemplazar en los vínculos; algo parecido a esto:

Sub BuscarReemplazarHipervinculosHojaActiva()

    Dim buscar As String, reemplazar As String

    Dim mihip As Hyperlink

    buscar = InputBox("Texto a BUSCAR")

    reemplazar = InputBox("REEMPLAZAR por", , buscar)

    For Each mihip In ActiveSheet.Hyperlinks

        mihip.Address = Replace(mihip.Address, buscar, reemplazar)

    Next

End Sub