Прямой доступ ко всем вхождениям блоков

Option Explicit
Public Sub AccessToInsert()
    On Error Resume Next
    ' Create the selection set
    Dim ssetObj As AcadSelectionSet
    Dim objSSS As AcadSelectionSets
    Set objSSS = ThisDrawing.SelectionSets
    For Each ssetObj In objSSS
        If ssetObj.Name = "SSET" Then
            ThisDrawing.SelectionSets.Item("SSET").Delete
        Exit For
        End If
    Next
    Set ssetObj = ThisDrawing.SelectionSets.Add("SSET")
    Dim gpCode(0) As Integer
    Dim dataValue(0) As Variant
    gpCode(0) = 0
    dataValue(0) = "INSERT"
    Dim mode As Integer
    mode = acSelectionSetAll
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
    ssetObj.Select mode, , , groupCode, dataCode
    Dim br As AcadBlockReference
     For i = 1 To UserForm1.TextBox4.value
        For j = 1 To 100
            For Each br In ssetObj
                If br.Name = "Marki" + CStr(i) + "." + CStr(j) Then
                    br.Delete
                End If
            Next br
        Next j
    Next i
End Sub

For i = 1 To UserForm1.TextBox4.value
       For j = 1 To 100
            For Each obj In ThisDrawing.ModelSpace
                If TypeOf obj Is AcadBlockReference Then
                    If obj.Name = "Marki" + CStr(i) + "." + CStr(j) Then
                        obj.Delete
                    End If
                End If
            Next
         Next j
    Next i