EXCEL - Referencias relativas remotas ??

[mrocf]

Hola! Raúl. Incorpora como evento "Open" de cada uno de los libros que refieren a "index.xlsm" lo siguiente:

Código:

Private Sub Workbook_Open()
IndexFile = "Index.xlsm"

MiDir = Left(ThisWorkbook.Path, _
  InStr(WorksheetFunction.Substitute(ThisWorkbook.Path, _
  "\", "%%", UBound(Split(ThisWorkbook.Path, "\"))), "%%"))

With ActiveWorkbook
  Aa = .LinkSources
  .ChangeLink Name:=Aa(1), NewName:=MiDir & IndexFile
End With
End Sub 

Imagina que cualquiera de esos libros se ha ubicado en:
C:\CarpetaConDatos\Libros

La idea es que al abrir cualquiera de esos libros, se defina la posición de "Index.xlsm" en:
C:\CarpetaConDatos\Index.xlsm

Comenta como te ha ido, ¿si?
Saludos, Cacho.