Subtotal in a shared workbook
 

i have a macro that subtotals a range of cells but it doesn't work in a
shared workbook. I know that it's one of the drawback of excel. Does anyone
have a clever way to subtotal a range of cells in a shared workbook?

This is my code.


Sub Subtotals()

Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(6,
12), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub