Having an Issue Grabbing Blocks in a Drawing...

I'm trying to change all the Blocks in a drawing to a certain Layer but I must not be seeing the problem. This routine works fine with Lines and Circles but Blocks are a bit different I guess. Could someone point out what I am missing please?



Sub BlockFind()

Dim ssBlock As AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
Dim objSelected As Object
Dim acBlock As AcadBlock

Set ssBlock = ThisDrawing.SelectionSets.Add("ssTemp")
FilterType(0) = 0
FilterData(0) = "Block"
ssBlock.Select acSelectionSetAll, , , FilterType, FilterData
ssBlock.Highlight True
For Each objSelected In ssBlock
If TypeOf objSelected Is AcadBlock Then
Set acBlock = objSelected
acBlock.Layer = "Fittings"
End If
Next

ThisDrawing.Regen acAllViewports

MsgBox ("Selection set " & ssBlock.Name & " moved " & _
ssBlock.Count & " items to the Fittings layer.")

End Sub

 

oops didn't read close enough,
as Joe said:
FilterData(0) = "Insert"
....and
Dim acBlock As AcadBlockReference
....and
If TypeOf objSelected Is AcadBlockReference Then

hopefully that should get it.
read up on blocks and inserts in the help, that should help

 

True, but with Autocad does anything ever work *exactly* as it's supposed
to?
At what point does error testing become redundant?

 

Thank you to all that responded. With your help I was able to do what I was hoping for.