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