Range.Summary (Excel)

True if the range is an outlining summary row or column. The range should be a row or a column.

Dim booSummary As Boolean
booSummary = ActiveCell.Summary