Откройте книги в «Редактировать ссылки», затем закройте все

Question

У меня есть этот код, который должен открывать книги в окне «Редактировать ссылки», а затем закрывать их. Однако я получаю сообщение об ошибке ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources. Я думаю, что это потому, что мои ссылки расположены на Sharepoint, поэтому он не хранится непосредственно на моем компьютере. Я получаю сообщение об ошибке «Ошибка метода« UpdateLink »объекта« _Workbook »»

Sub UpdateLinks()
    Dim v As Variant, i As Long
    v = ThisWorkbook.LinkSources(XlLink.xlExcelLinks)
    For i = 1 To UBound(v)
        If Not FileInUse(v(i)) Then
            Workbooks.Open (v(i))
        End If
    Next i

    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
End Sub

Public Function FileInUse(sFileName) As Boolean 'Checks if a workbook is open
    On Error Resume Next
    Open sFileName For Binary Access Read Lock Read As #1
    Close #1
    FileInUse = IIf(Err.Number > 0, True, False)
    On Error GoTo 0
End Function