Group/ Ungroup in excel VBA

[rajuganapathy]

Hello All,

i have a small doubt, Plan to assign the macro Group and Ungroup in excel sheets. that sheets contains more then 40 excel sheets. i have tried the below macro. it's working the first option if i click again it's not bring back the old format.

can you suggest me any idea how can i fix this. Thank you.

#Sub Expand_All()
If Range("A1").Value = True Then
ActiveSheet.Outline.ShowLevels RowLevels:=2, ColumnLevels:=3
Else
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=0
End If

End Sub#

Thanks
Raju