I have made a macro which make a subtotal of a page in two levels:

Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(8, 10), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=False
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(8, 10), _
Replace:=False, PageBreaks:=False, SummaryBelowData:=False

Now I want to make a checkbutton where the user can select to collapse an
item on the second level. My problem is now that I can't find any information
on how to select a special item and then collapse it with VBA. When I record
the acction, where I manually click on the "-" to the left of this item and
it collapse. When I stop the recording of the macro I find no code.

Hope someone can help on this one.