Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModel.Extension.SelectByID2 "Component Name @ Assembly Name Here", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0
swModel.CompConfigProperties4 2, 0, True, True, "Config Name Here", False
Your good! When I first looked at what your code was I thought I tried that, but turns out I made the mistake of not including the "@Assembly" portion of the selectbyid2.
Thanks a lot, your help is very much appreciated.