VBA: Dynamisk "Hide Detail" funktion

Hej.

Jeg har brug for en makro som kan lukke alle de grupper der måtte være på et ark. Altså samme funktion som hvis man markerede alle celler og derefter valgte Data -> Group and Outline -> Hide Detail.

Hvis man optager en makro som gør ovenstående, så bliver den meget statisk da den kode den laver indeholder henvisninger til start- og slutlinie som vist nedenfor.

ExecuteExcel4Macro "SHOW.DETAIL(1,276,FALSE,255)"

Dette er ikke så smart hvis man ændrer i, sletter eller tilføjer grupper, så kan man ikke gøre det på en smartere måde?

På forhånd tak, og god weekend :)