[AccessD] Excel Subtotal from Access/VBA

Just reference the entire worksheet (change activesheet below to
worksheets("whatever") if required).
My notes on this function indicate to put a Application.DisplayAlerts=False
statement in there too.

>
>     With ApXL
>
>         .ActiveSheet.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
>