CustomSubtotalFunction Property

expression.CustomSubtotalFunction

expression    Required. An expression that returns a PivotCell object.

Remarks

The CustomSubtotalFunction property will return an error if the PivotCell object type is not a custom subtotal. This property applies only to non-OLAP source data.

Example

This example determines if cell C20 contains a custom subtotal function that uses a consolidation function of count and then it notifies the user. The example assumes a PivotTable exists on the active worksheet.

Sub UseCustomSubtotalFunction()

    On Error GoTo Not_A_Function

    ' Determine if custom subtotal function is a count function.
    If Application.Range("C20").PivotCell.CustomSubtotalFunction = xlCount Then
        MsgBox "The custom subtotal function is a Count."
    Else
        MsgBox "The custom subtotal function is not a Count."
    End If
    Exit Sub

Not_A_Function:
    MsgBox "The selected cell is not a custom subtotal function."

End Sub