Borrar todas los vínculos (referencias) a otros archivos de Excel

La siguiente macro elimina todos los vínculos (referencias) a otro archivo de Excel, dejando sólo el valor resultante:

Sub BorrarVinculosOtrosArchivos_XL()
    
    
    Dim lks As Variant
    Dim i As Long
    
    
    With ActiveWorkbook
        
        lks = .LinkSources(xlExcelLinks)
        
        If IsEmpty(lks) Then
        
            MsgBox "No hay vínculos para borrar."
            
        Else
        
            For i = LBound(lks) To UBound(lks)
                .BreakLink lks(i), xlExcelLinks
            Next i
            
        End If
        
    End With
    
    
End Sub