I want to remove the first body from the tree. This code works but since I do not know the name of the solid body I just want to delete the first one from the tree.

Dim swApp As Object Dim Part As Object Dim boolstatus As Boolean Dim longstatus As Long, longwarnings As Long Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc boolstatus = Part.Extension.SelectByID2("Fillet3", "SOLIDBODY",