Hey Rob,

Who says you can't teach an old dog new tricks. I had the same problem and didn't know it!! This fixed it though
[VBA]
Sub ChnageAllToLyer()
Dim ssAll As AcadSelectionSet, mEntity As AcadEntity
Set ssAll = ThisDrawing.SelectionSets.Add("AllEntities")
ssAll.Select acSelectionSetAll
For Each mEntity In ssAll
'move entity to layer "0"
mEntity.Layer = "0"
'make sure entity is "ByLayer"
mEntity.Color = 256
Next
ssAll.Clear
ssAll.Delete
Set ssAll = Nothing
ThisDrawing.Regen acActiveViewport
End Sub
[/VBA]