DXF code 410 VBA solutions?

[PZero]

I have run across a problem that seems to have come up a few times, but all links to helpful resources in those threads are dead. I am trying to select a particular block on the active layout, however due to the failings of code 410 in VBA, I can only select the block on the first layout.

I'm using vbdPowerSet and BuildFilter as found at

http://www.tek-tips.com/faqs.cfm?fid=5792

Heres my code (many thanks to Todd so far) which does not include the failed 410 bits;

' Build the filter criteria.
'
BuildFilter intData, varData, -4, "" _

' Ensure a selection set is not already in memory.
'
Set ssTitleBlock = vbdPowerSet("TITLE_BLOCK")


' Build the selection set.
'
ssTitleBlock.Select Mode:=acSelectionSetAll, FilterType:=intData, FilterData:=varData

Does anyone have a solution to this problem?

 

[PZero]

Sorry, my code actually looks like the following;

  ' Build the filter criteria.
  '
  BuildFilter intData, varData, -4, "<and", _
                                  0, "INSERT", _
                                  2, "TitleBlock", _
                                -4, "and>" _

  ' Ensure a selection set is not already in memory.
  '
  Set ssTitleBlock = vbdPowerSet("TITLE_BLOCK")

  
  ' Build the selection set.
  '
  ssTitleBlock.Select Mode:=acSelectionSetAll, FilterType:=intData, FilterData:=varData