Application.ActiveCell Property (Project)
Gets a Cell object that represents the active cell. Read-only Cell.
Syntax
expression .ActiveCell
expression A variable that represents an Application object.
Example
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