He, he, hai violato un altra volta il regolamento sollecitando una risposta!
Comunque ti esprimi in maniera cortese per cui ti dico quel che so.
Riguardo alla tua domanda conosco solo il metodo per aprire o chiudere tutti i raggruppamenti di una pagina tramite macro.
Questa apre :
Sub Rettangolo1_Click()
ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub
e questa chiude:
ActiveSheet.Outline.ShowLevels RowLevels:=1
Magari puo servirti come punto di partenza per trovare quello che ti serve.
P.S. Per mostrarti pentito potresti rimuovere il post dall' altro forum (tanto non ti hanno risposto)