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

       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