I am attempting to complete a macro for my assembly drawings of which takes a selected component and creates a new layer for it, I just cant get the component to move to the new layer.

Any advice or help?

Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swDrawComp As SldWorks.DrawingComponent
Dim swComp As SldWorks.Component2
Dim swDraw As SldWorks.DrawingDoc
Dim pLayerMgr As Object
Dim RGB As Long
Dim boolstatus As Boolean
Dim sLayerName As String

Public Sub main()

Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swDrawComp = swSelMgr.GetSelectedObject6(1, -1)

Debug.Print swDrawComp.Name
sLayerName = swDrawComp.Name
sLayerName = Replace(sLayerName, "/", "_")
sLayerName = Replace(sLayerName, "@", "_")

Set pLayerMgr = swModel.GetLayerManager

RGB = "16776960"

res = pLayerMgr.AddLayer(sLayerName, "", RGB, 0, 0)
swDraw.ChangeComponentLayer sLayerName, True

End Sub