Selection.ShowDetail = True Автомат-ки добавляет новый лист?

[sonata]

Есть сводная таблица "Оплата по договорам":
Договор Итоговая сумма
Мне нужно данные сводной таблицы иметь в развернутом виде,
т.е. когда щелкаешь дважды на итоговой сумме,
то она разворачивается на новом листе.
Меня это не устраивает, я хочу, чтобы развернулись все строки и на одном листе друг за дружкой.
Это, возможно?
Неужели эта строчка:
Selection.ShowDetail = True
Автоматически добавляет новый лист?
Можно в таком виде развернуть все строки на одном листе друг за дружкой?
Дело в том, что кол-во строк в сводной таблице более 500...

[sonata]

Дело в том, что эта процедура добавляет безумное количество листов...

Код: Выделить всё

Sub Макрос1()
    For i = 5 To 500
    Cells(i, 2).Select
        Selection.ShowDetail = True
    Sheets("Лист1").Select
    Next
End Sub

А мне надо все в одном друг за дружкой....

[GSerg]

Файлик кинь...

[GSerg]

Связался я с вашим товаром... (c)

Это ковырять надо упорно, так что не сразу отвечу...