on error resume next  ?

if fname.Закрыт then 
ActiveWorkbook.UpdateLink Name:=fname
end if

'http://www.sql.ru/forum/actualthread.aspx?tid=423077&hl=activeworkbook+updatelink+name#4075679
'
'Deggasad
'Если можно не обновлять недоступные файлы, а оставить старые цифры то удали из модуля эти строки:
'       Else
'         x = Split(fname, "\")
'         fnput = Replace(fname, x(UBound(x)), "[" & x(UBound(x)) & "]")
'         For Each Sh In ActiveWorkbook.Sheets
'           Sh.Cells.Replace What:=fnput, Replacement:=fnput, LookAt:=xlPart
'         Next Sh


Private Function FileExists3(fname) As Boolean
    Set filesys = CreateObject("scripting.filesystemobject")
    FileExists3 = filesys.FileExists(fname)
End Function

Sub UpdLink()

Application.DisplayAlerts = False
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
    For i =  1  To UBound(aLinks)
     fname = aLinks(i)
     If FileExists3(fname) = True Then
       ActiveWorkbook.UpdateLink Name:=fname
'       Else
'         x = Split(fname, "\")
'         fnput = Replace(fname, x(UBound(x)), "[" & x(UBound(x)) & "]")
'         For Each Sh In ActiveWorkbook.Sheets
'           Sh.Cells.Replace What:=fnput, Replacement:=fnput, LookAt:=xlPart
'         Next Sh
      
     End If
    Next i
End If
Application.DisplayAlerts = True

End Sub