Link Update Error

[geizmendi]

Capture.PNG

Hello,

I have the following code that pulls data from the another file in a shared local drive, and it seems to have issue when the local drive goes down, I'm updating the code every 30 seconds. Any idea of how to automatically close the "Save As" window when it appears?

Sub Update_Links()
    On Error Resume Next
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
    Application.OnTime DateAdd("s", 30, Now), "Update_Links"
End Sub