this is how far Ive gotten, but it keeps erroring out
Dim GPCODE As Integer
Dim DATAVALUE(1) As Variant
GPCODE = 0
DATAVALUE(0) = "AcDbBlockReference"
DATAVALUE(1) = "HAIRPIN60"
Set OBJSELSET = ThisDrawing.SelectionSets.Add("BLKCOUNT")
OBJSELSET.Select acSelectionSetAll, , , GPCODE, DATAVALUE