Group Collapse/Expand

[cstimart]

Is it possible to collapse and/or expand a grouped range? I was able to use VBA to create the group, but can't seem to collapse or expand using VBA.

 

[VoG]

This is what the macro recorder gave me

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.Rows.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

 

[cstimart]

This is what the macro recorder gave me

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.Rows.Group
    ActiveSheet.Outline.ShowLevels RowLevels:=2
    ActiveSheet.Outline.ShowLevels RowLevels:=1
    ActiveSheet.Outline.ShowLevels RowLevels:=2
End Sub

Thanks!

I had tried the recorder, but wasn't using the "1" or "2" buttons.