Как автоматически обновить соединения / ссылки в книге Excel, хранящиеся в папке общего ресурса

Question

Я пытаюсь обновить ссылки на книги Excel, хранящиеся в папке SharePoint. После того, как файл открылся в Excel, просят обновить / не обновить ссылки. Q. Как выполнить автоматическое обновление, не запрашивая всплывающее окно windows, затем «сохранить», затем «закрыть», повторите с «do l oop», пока в столбце «B» не будет пустой ячейки

Пожалуйста, рассмотрите код ниже , wb.UpdateLink Name:=ActiveWorkbook.LinkSources - не работает

Sub test_code_update_links
Application.DisplayAlerts = False
Application.ScreenUpdating = False

    Dim sFile As String
    Dim wb As Workbook
    Dim FileName As String
    Dim wksSource As Worksheet

        Const scWkbSourceName As String = "workbook_name" 'test name
        Const sPath As String = "file_path_part_1" 'test path

        Set wkbSource = Workbooks(scWkbSourceName)
        Set wksSource = wkbSource.Sheets("Setup")

        SourceRow = 6 'start from this row
                Do While Cells(SourceRow, "B").Value <> ""
                    FileName = wksSource.Range("B" & SourceRow).Value
                        sFile = sPath & FileName
                        Set wb = Workbooks.Open(sFile)
                            wb.LockServerFile
                            wb.Activate ' before I need to activate just opened excel file?
                            wb.UpdateLink Name:=ActiveWorkbook.LinkSources ' I use this -> update all links
                            wb.Save 'save workbook
                            wb.Close 'close workbook
                Application.DisplayAlerts = True
                Application.ScreenUpdating = True
        SourceRow = SourceRow + 1 ' Move down 1 row for source sheet
                Loop
    End Sub