I could not record the outline before ...like:
ActiveSheet.Outline.ShowLevels RowLevels:=1
I was just "Grouping" the rows but setting the Outlines.Showlevels was
another matter.

But in the end ... it is ... Tom who is right!
Thx Tom
Sige

Sub Macro6()
'
' Macro6 Macro
' Macro recorded 6/04/2005 by Sige
'
Range("A1:A5").Select
Selection.Rows.Group
Range("A1:E1").Select
Selection.Columns.Group
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
End Sub

"NOSPAM" to be removed for direct mailing...

*** Sent via Developersdex http://www.developersdex.com ***