Sub KillDaXwefs()
Dim objWascawyXwef As AcadBlock
Dim objblks As AcadBlocks
Dim intCnt As Integer
Dim objSelSet As AcadSelectionSet
Dim objSelSets As AcadSelectionSets
Dim intGroup(0) As Integer
Dim varData(0) As Variant
Dim strSetName As String
Dim objBlkRef As AcadBlockReference
Set objSelSets = ThisDrawing.SelectionSets
strSetName = "LeftInAlbekoikie"
intGroup(0) = 0: varData(0) = "INSERT"
KillSet strSetName
Set objSelSet = objSelSets.Add(strSetName)
objSelSet.Select acSelectionSetAll, , , intGroup, varData
For Each objBlkRef In objSelSet
If TypeOf objBlkRef Is AcadExternalReference Then
objBlkRef.Delete
End If
Next objBlkRef
Set objblks = ThisDrawing.Blocks
For intCnt = objblks.Count - 1 To 0 Step -1
Set objWascawyXwef = objblks(intCnt)
If objWascawyXwef.IsXRef Then
objWascawyXwef.Detach
End If
Next intCnt
End Sub
give this one a shot then