Cell.Task Property (Project)
Gets a Task object representing the task in the active cell. Read-only Task.
The following example displays the names of all tasks at the same outline level as the selected task.
Sub Siblings() Dim MyParent As Task Dim Sibling As Task Dim Temp As String Set MyParent = ActiveCell.Task.OutlineParent For Each Sibling In MyParent.OutlineChildren Temp = Sibling.Name & ListSeparator & " " & Temp Next Sibling Temp = Left$(Temp, Len(Temp) - Len(ListSeparator & " ")) MsgBox Temp End Sub