update links vba debug error

[kingkk7]

Hi i have a workbook open, but i want it update all the links on the page

The links from the other spreadsheets are open on other computers that are shared and are saved every 5 mins

The current code looks like this

Sub UpdateIt()
''This stops any messages popping up on the screen
Application.DisplayAlerts = False


''This updates all the links in the workbook
ActiveWorkbook.UpdateLink Name:=ThisWorkbook.LinkSources, Type:=xlExcelLinks


''This allows Excel to show any other messages again
Application.DisplayAlerts = True


''The time feature is used again and after 5 minutes the code will call itself and start over
Application.OnTime Now + TimeValue("00:01:30"), "UpdateIt"
End Sub

i often get a debugging eror come up

Can someone please shed some light on this

Thank you

Umair Iqbal

 

[kingkk7]

When the updateIt sub is run I get a run-time error `1004`
Method`UpdateLink` of object`_Workbook`failed


if the workbook that the links are coming from is open, (even if its open on the same computer)