Task.WBSSuccessors property (Project)
Gets the work breakdown structure (WBS) codes of the task successors, separated by the list separator. Read-only String.
expression A variable that represents a Task object.
The following example queries the user for a task ID and then provides a more user-friendly breakdown of its successors' WBS codes.
Sub EnumerateSuccessors() Dim Task As Task Dim SuccTasks As Tasks Dim ID As Long Dim Successors As String Dim List As String Dim Count As Integer ID = CLng(InputBox$("Enter the ID number of the task you wish to examine:")) Set Task = ActiveProject.Tasks(ID) Set SuccTasks = Task.SuccessorTasks Successors = Task.WBSSuccessors Count = 1 If SuccTasks.Count = 0 Then List = "Task " & Task.UniqueID & ", " & Task.Name & ", has no successors." Else List = "Successors to task " & Task.UniqueID & ", " & Task.Name & ":" & vbCrLf & vbCrLf Do While InStr(Successors, ListSeparator) <> 0 List = List & SuccTasks(Count).Name & ": " & Mid$(Successors, 1, InStr(Successors, ListSeparator) - 1) & vbCrLf Successors = Right$(Successors, Len(Successors) - InStr(Successors, ListSeparator)) Count = Count + 1 Loop List = List & SuccTasks(Count).Name & ": " & Successors End If MsgBox List Set SuccTasks = Nothing Set Task = Nothing End Sub
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.