Code: Select all
With ApXL
.Range("A2").Select
.Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=Array(12), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
.ActiveSheet.Outline.ShowLevels RowLevels:=2
.Columns("L:L").Style = "Currency"
.Rows("1:1").Font.Bold = True
End With
Any help is greatly appreciated.
Ken