Application.ActiveCell Property (Project)
Gets a Cell object that represents the active cell. Read-only Cell.
expression A variable that represents an Application object.
The following example displays the names of the resources assigned to the selected task. The example assumes a task view is the active view and the active cell is in a task row.
Sub ResourceNames() Dim A As Assignment For Each A In ActiveCell.Task.Assignments MsgBox A.ResourceName Next A End Sub