сворачивание группы столбцов средствами VBA

[dsergn]

Здравствуйте!
Подскажите пример кода VBA который бы сворачивал или разворачивал группу столбцов, если такое возможно....

[EducatedFool]

Sub test()
    Columns("b:g").Group    ' группировать
    Columns("e:f").Ungroup    ' разгруппировать
End Sub

[IgorGO]

соберите строки 5:7 в группу. управлять их видимостью невидимостью можно кнопкой (+) (-) на экране и этой процедурой

Sub TogleHidden()
  Range("5:7").EntireRow.Hidden = Not Range("5:7").EntireRow.Hidden
End Sub

эффект такой же, как свернуть/развернуть группу.

[dsergn]

Сообщение от IgorGO

соберите строки 5:7 в группу. управлять их видимостью невидимостью можно кнопкой (+) (-) на экране и этой процедурой

Sub TogleHidden()
  Range("5:7").EntireRow.Hidden = Not Range("5:7").EntireRow.Hidden
End Sub

эффект такой же, как свернуть/развернуть группу.

Спасибо за ответ,только с корректировкой на столбцы, работает что надо:

Range(Cells(1, 3), Cells(49, 38)).EntireColumn.Hidden = Not Range(Cells(1, 3), Cells(49, 38)).EntireColumn.Hidden

тема закрыта.