Detach all Xrefs VBA

I have a lots of Blocks, and Xrefs in the ModelSpace. I want to detach only the xrefs (all xrefs) in the modelspace with VBA...

What should I do?

You can do this easy from the external reference manager. Just type xref, hit enter, select all the xrefs shown. Right click select unload and that's that..

Regards,

DECHAL

Yes I know, but it isn't the good way for me....

Try this:

Sub DetachAll()
   Dim XRef As AcadExternalReference
   Dim B As AcadBlock
   Dim Found As Boolean
   
   On Error Resume Next
   Do
       Found = False
       For Each B In ThisDrawing.Blocks
           If B.IsXRef Then
               B.Detach
               If Err Then Err.Clear
               Found = True
           End If
       Next
       If Found = False Then Exit Do
   Loop
       
       
End Sub

Thx Joro , cool