Группировка строк

[mephist]

Хочу к Вам обратиться вот с каким вопросом:
мне нужно атоматом сгуппировать ячейки на листе.
Код с рекордера:

Sub Макрос1()
    Rows("4:15").Select
    With ActiveSheet.Outline
        .AutomaticStyles = False
        .SummaryRow = xlAbove
        .SummaryColumn = xlRight
    End With
    Rows("4:15").Group
    ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

И он работает.
А вот мой аналогичный код:

Sub Макрос1()
    Dim p, r As Integer
    With ActiveSheet.Outline
        .AutomaticStyles = False
        .SummaryRow = xlAbove
        .SummaryColumn = xlRight
    End With
    p = 4: r = 15
    Rows("p:r").Group
    ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

И он не рабтает.
Выдает ошибку Run-Time error 1004
Application-defined or object-defined error
Честное слово, я не вижу никакой разницы между ними.
Подскажите, пожалуйста что не так???

[SAS888]

Строку

Rows("p:r").Group

замените на

Rows(p & ":" & r).Group

[mephist]

Спасибо большое. А я гоолову ломал!