Public Sub SearchForBlock()
Dim pEnt As AcadEntity
Dim pBlkRef As AcadBlockReference
For Each pEnt In ThisDrawing.PaperSpace
If TypeOf pEnt Is AcadBlockReference Then
Set pBlkRef = pEnt
Select Case UCase(pBlkRef.Name)
Case "NAME1", "NAME2", "NAME3", "NAME4", "NAME5", "NAME6"
' Do something here...
End Select
End If
Next
End Sub
Cheers,
Glenn.