Outline.ShowLevels ColumnLevels:=2

[Jura_1313]

Вопрос такой:
можно ли с помощю макроса открить-закрить одну конкретную группу в уровне. Не весь уровень (ShowLevels).

Следующий макрос (три кнопки) откривает разную детализацю Листа (весь уровень). Но я хочу с помощю макроса открить конкретную (одну) подгрупу. Имеется ли такая возможность? Типа ShowLevels.Count(7).Schov
'=========================
'--------------------------------
'button_1
'--------------------------------
Sub Small()
For Each WS In ActiveWorkbook.Worksheets
WS.Unprotect
WS.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
WS.Protect
Next WS
End Sub
'--------------------------------
'button_2
'--------------------------------
Sub Normal()
For Each WS In ActiveWorkbook.Worksheets
WS.Unprotect
WS.Outline.ShowLevels RowLevels:=1, ColumnLevels:=2
WS.Protect
Next WS
End Sub
'--------------------------------
'button_3
'--------------------------------
Sub Large()
For Each WS In ActiveWorkbook.Worksheets
WS.Unprotect
WS.Outline.ShowLevels RowLevels:=2, ColumnLevels:=2
WS.Protect
Next WS
End Sub
'=========================

[Jura_1313]

Спасибо всем.
Решение найдено.

Вопрос снимаю.