Project.Cell.Task.md

title	ms.service	api_name	ms.assetid	ms.date	ms.localizationpriority
Cell.Task property (Project)	project-server	Project.Cell.Task	ba23b56f-e817-1ea3-bed6-b83342c2bded	06/08/2017	medium

Cell.Task property (Project)

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

Syntax

expression. Task

expression A variable that represents a Cell object.

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

[!includeSupport and feedback]