Try the below

Sub GroupRows()
Dim lngRow As Long
For lngRow = 1 To 100 Step 10
Range("A" & lngRow + 1).Resize(9).Rows.Group
Next
ActiveSheet.Outline.SummaryRow = xlAbove
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"GoBucks" wrote:

I found part of my answer in another post (see below) with the code:

ActiveSheet.Outline.SummaryRow = xlAbove
ActiveSheet.Range("A2", "A10").Rows.Group

But what if I wanted to Group other rows in the same worksheet in the same
fashion. For example, I would like to also apply for range A12:A20 with A11
as the row with the +/- sign. And then to A22:A30 with A21 as the row with
the +/- sign. And so on..

Also, I am fairly new to using VB, so what would be the entire set of code
to place in the in VB editor?

Thanks!!


http://www.microsoft.com/office/comm...f-6c3c230b862e