Ok,
Jeff, I believe I have solved it.
With all of your help and my persistence, this seems to be working real well. Along with The Sset, I used a For, Each Loop and it seems to be working real well.
It looks for the blockreference based on the scale, creates the layer, grabs the block and places it on the newly created layer.
So after the user inserts the block, they need to launch the macro immediately after. That is exactly what I was looking to do.
If you get a chance, get it a shot and let me know what you think
Thanks again
Mark
-------------------------------------
Sub Scaledblockonlayer()
Dim BlkRef As AcadBlockReference
Dim Sset As AcadSelectionSet
Set Sset = ThisDrawing.PickfirstSelectionSet
Sset.Select acSelectionSetLast
For Each BlkRef In Sset
Select Case BlkRef.XScaleFactor
Case Is = 48#
ThisDrawing.layers.Add ("CO-I-SYMB-48")
Sset.Item(0).Layer = ("CO-I-SYMB-48")
Case Is = 96#
ThisDrawing.layers.Add ("CO-I-SYMB-96")
Sset.Item(0).Layer = ("CO-I-SYMB-96")
End Select
Next
End Sub