why they had add "SSO1".
This is just a name any name will do.
Use Arizona's selectionset test
For Each objSelSet In objSelCol
If objSelSet.Name = "test1" Then
objSelSet.Delete
Exit For
End If
Next objSelSet
fix your code- grpCode(2) is no good
ctrl+g will bring up your immediate window
Debug.Print will print to that
(or use the locals or watch window as Kerry was saying.
Add below.
Debug.Print ssetObj.count
ssetObj.Delete
ssetObj.Erase-will delete the items in the selectionset-you don't want that.
ssetObj.Delete-will delete the selectionset and not the items in it.
Now you can use a for loop to work with your plines.
Make a collection to add your coordinates.
Dim CoordCol As Collection
Set CoordCol = New Collection
now place your cursor after Collection and hit F1
this will take you to help