Update all links in open workbook with VBA


Sub Update_all_Links()
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
End Sub

Source: Microsoft.com