ActiveWorkbook.UpdateLink issue

[davewatson86]

Hi all

having an issue where i run the below code:

Sub UpdateLinks()
Dim Location As Variant
Dim File_Name As String


Application.ScreenUpdating = False
Application.EnableEvents = False


Call unprotect
    
For i = 5 To WS_Admin.Range("C4").End(xlDown).Row


    File_Name = WS_Admin.Range("C" & i).Value & " Quote Tracker.xlsb"
    Location = Application.ActiveWorkbook.Path & "\" & File_Name
    
    ActiveWorkbook.UpdateLink Name:=Location, Type:=xlExcelLinks
    Application.Calculate

Next i


Call protect


Application.EnableEvents = True
Application.ScreenUpdating = True


End Sub

The code runs without any errors but the destination workbook will not show the values from the source workbooks.

Strange thing is that if i double click on a cell that i know is different in the source workbook and hit enter just that individual cell updates.

what am i doing wrong?

Source workbooks are closed and all workbooks where created in the same version of excel.

Many thanks for your help as id be lost without the guidance of this forum.

Regards
Dave