Dim Sum As DoubleWith CurrentTable Sum = .Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)End WithOutPut.Show(Sum)