I know this is probably an easy one, but it is giving me problems. I am creating a plane using:

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("RefPlane", "PLANE", 0, 0, 0, True, 0, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("Point31@Probe", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)
Dim myRefPlane As Object
Set myRefPlane = Part.CreatePlaneThruPtParallelToPlane(True)

and this works fine and creates the plane. However, it is numbered sequentially each time, so I cannot select it to rename it, and the last plane isn't selected when created. I want to be able to rename the plane as I will be creating quite a few of them.

Another basic question would be if I want to create a loop, can I change:

boolstatus = Part.Extension.SelectByID2("Point31@Probe", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0)

to

boolstatus = Part.Extension.SelectByID2("Point" & i & "@Probe", "EXTSKETCHPOINT", 0, 0, 0, True, 0, Nothing, 0) ?

That doesn't seem to be working.

Thank you for all of your help,

Nolan