ActiveObject Property

Returns or sets an Object that represents the selected cell in the detail area of the PivotTable list. Use the Value property of the returned object to change the value of the selected cell.

expression   Required. An expression that returns a PivotTable object.

Remarks

This property returns Nothing if no detail cells are selected.

Example

This example enables the editing of detail records in PivotTable1, then places the current date in the selected detail cell. The editing of detail records is disallowed once the date has been inserted into the selected cell.

Sub EditSelectedCell()

    Dim objActiveCell

    ' Allow editing of detail records.
    PivotTable1.ActiveView.AllowEdits = True

    ' Set a variable to the currently selected cell.
    Set objActiveCell = PivotTable1.ActiveObject

    ' Check whether a detail cell is selected.
    If Not objActiveCell Is Nothing Then

        ' Set the value of the detail cell
        ' to the current date.
        ' Note: This will result in a run-time
        ' error if the data type of the selected
        ' cell does not support date values.
        objActiveCell.Value = Date

    End If

    ' Disallow editing of detail records.
    PivotTable1.ActiveView.AllowEdits = False

End Sub