Task Property

Returns a Task object representing the task in the active cell. Read-only.

Example

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

Applies to | Cell Object

See Also | Resources Property | Task Object, Tasks Collection Object