Изменение функции поля сводной таблицы

[Lal]

Добрый день! Помогите, пожалуйста, разобраться?
Есть макрос, который меняет функцию, обработки данных поля сводной таблицы.
1) Каким образом его нужно изменить, чтобы он менял функцию выделенного в данный момент поля, а не конкретного прописанного в нем поля?
2) Можно ли сделать так чтобы макрос обрабатывал сразу несколько выделенных полей сводной таблицы?

Sub change_function()
'
' change_function Макрос
' Макрос записан 03.03.2009 (Lal)
'

'
With ActiveSheet.PivotTables("СводнаяТаб лица1").PivotFields( _
"Сумма по полю Продано штук")
.Calculation = xlPercentOfColumn
.NumberFormat = "0,00%"
End With
End Sub

[Lal]

Пожалуйста, подскажите. Ни как не могу разобраться с этой задачей. Вся надежда на вас, уважаемые!

[Юлия_shell]

Dim myRange As Range
Set myRange = Application.InputBox( _
Prompt:="choose required cells", _
Title:="choose required cells", _
Default:=ActiveCell.Address, _
Type:=8)
For Each i In myRange
...
Next i

Так вводится кусок из нескольких полей
А как присоединить это к работе Вашего макроса - пока не знаю...

[Lal]

Спасибо!!!
Буду капать дальше