Ayuda: actualizar vinculos externos sin que se abra automaticamente el libro

[Aday]

Hola a todos, 

Es mi primera vez aqui espero que puedan ayudarme:

Tengo un excel central con varios vínculos (formulas) a otros archivos excel donde estan los datos. Copie una macro en el excel central para que los datos se actualicen solos sin necesidad de abrir los excels de datos uno a uno. Hasta aqui todo bien, se actualiza todo perfecto.

Mi problema es que ahora los resultados de ese excel central los necesito vincular a otro excel nuevo. Cuando lo vinculo y abro el excel central, tras ejecutar la macro ahora se me abre el archivo excel nuevo y ademas la macro deja de ejecutarse correctamente porque ya no me muestra bien los datos.

 

Es decir que el excel central recoge todos los datos bien con la macro, pero tras vincular los datos del excel central a otro excel nuevo tengo dos problemas que me gustaria resolver:

1. Que se me abra automaticamente el excel nuevo

2. Que la macro siga funcionando correctamente

Muchas gracias de antemano!!!!

Esta es la macro que tengo:

Sub ActualizarLinks()

Dim res As Long

 

 On Error Resume Next

 Application.ScreenUpdating = False

   With ThisWorkbook

     res = ActLink(.LinkSources)

       If res = 0 Then

         .UpdateLink Name:=.LinkSources

       End If

    End With

 Application.ScreenUpdating = True

End Sub

 

Private Function ActLink(lSource As Variant) As Long

Dim objWB As Workbook, intC As Integer, res As Long

   

  If Not IsEmpty(lSource) Then

    For intC = 1 To UBound(lSource)

     Set objWB = Workbooks.Open(lSource(intC))

     res = ActLink(objWB.LinkSources)

      If res = 0 Then

        objWB.UpdateLink Name:=objWB.LinkSources

        objWB.Close True

      End if

    Next

     ActLink = -1

  End If

 End Function