SOLIDWORKS macro to break all external references for components

Dim swApp As SldWorks.SldWorks
Dim swAssy As SldWorks.AssemblyDoc

Sub main()

    Set swApp = Application.SldWorks
    
    Set swAssy = swApp.ActiveDoc
    
    If Not swAssy Is Nothing Then
    
        swAssy.ResolveAllLightWeightComponents True
        
        Dim vComps As Variant
        Dim swComp As SldWorks.Component2
        Dim swCompModel As SldWorks.ModelDoc2
        
        vComps = swAssy.GetComponents(False)
        
        Dim i As Integer
        
        For i = 0 To UBound(vComps)
            Set swComp = vComps(i)
            Set swCompModel = swComp.GetModelDoc2
            If Not swCompModel Is Nothing Then
                swCompModel.Extension.BreakAllExternalFileReferences2 False
            End If
        Next
    Else
        MsgBox "Please open assembly"
    End If
     
End Sub