so I updated it to the following and it seems to be ok
Set objStep = objApp.Project.Steps(vbldStepMain).Add("Subroutine Call", iNewIndex + 1)
objStep.Name = "TEMP New Shares Add"
objStep.Indent = 2
objStep.Checked = True
objStep.Property("SubName") = "SUB TEMP New Shares Add"
objStep.Property("Expand") = CBool(-1)
objStep.Property("buildfailsteps") = CBool(0)
objApp.Project.Save
is this correct?
|