Browsing BlockReferences

[sbruvo]

Why "red line" generates

Run-time error '19':
Type Mismatch

Is there a way to browse only through BlockReferences, not all entities in drawing ?
And I do not need & want Selection Set.

Sub Test()
Dim blkRef As AcadBlockReference
For Each blkRef In ThisDrawing.ModelSpace
ThisDrawing.Utility.Prompt blkRef.Name & vbCrLf
Next
End Sub

[RICVBA]

I guess it's because ModelSpace is not the collection of BlockReferences only.
and on the other hand you can't use ThisDrawing.Blocks collection, since you're interested in BlockReferences
so to avoid selectionset methods I'd use the following:

Sub Test()
Dim blkRef As AcadBlockReference
Dim acdEnt As AcadEntity
For Each acdEnt In ThisDrawing.ModelSpace
    If TypeOf acdEnt Is AcadBlockReference Then
        Set blkRef = acdEnt
        ThisDrawing.Utility.Prompt blkRef.Name & vbCrLf
    End If
Next acdEnt
End Sub