ActiveSelection Property
Returns a Selection object that represents the active selection. Read-only.
Example
The following example displays the name of each selected task in a message box. Running this example without a valid selection results in a trappable error (error code 424).
Sub SelectedTasks()
Dim T As Task
If Not (ActiveSelection.Tasks Is Nothing) Then
For Each T In ActiveSelection.Tasks
' Test for blank task row
If Not (T Is Nothing) Then
MsgBox T.Name
End If
Next T
End If
End Sub
Applies to | Application Object
See Also | ActiveCell Property | ActivePane Property | ActiveProject Property | ActiveWindow Property | Cell Object