Closing Grouped columns

[ryancey]

Does anyone know how to close grouped columns in VBA.
I have a macro that goes through about 50 tabs and groups the columns but leaves the group open. I'd love to know the syntax to close the group that I just created on each tab. Thanks.

 

[Andrew Poulsom]

Is it eg?

Worksheets("Sheet1").Outline.ShowLevels columnLevels:=1

 

[ryancey]

I'm not sure what eg means. Here's what I'm doing.
I'm using Selection.Columns.Group to group a range of selected column. That leaves me with the little "-" minus sign at the top of the worksheet. I'd like to put a line below the Selection.Columns.Group line to close the group and leave me with the little "+" plus sign.
Thanks.

 

[Andrew Poulsom]

Did you try what I suggested?

Sub Test()
    Columns("D:F").Select
    Selection.Columns.Group
    Worksheets("Sheet1").Outline.ShowLevels columnLevels:=1
End Sub

 

[ryancey]

Thanks Andrew, that worked great!