VBA ピボットテーブルのフィールド名を変更

Question

ピボットテーブルのフィールド名を変数に格納している文字にて変更したいです。
下のようなコードで行うと「指定されたフィールド名は既に使用されています」とエラーが出てしまいます。
そもそも変数に対応していないのか、自分のやり方が悪いのかお教えください。
宜しくお願い致します。

Dim ws
Dim buf

Set ws = Worksheets("集計")

'変更したい値が入力されているセル
buf = ws.Range("A1")

ActiveSheet.PivotTables("table").PivotFields("xxx").Caption = buf

Comments

[radames1000]

サンプルでも画像をあげていただけるとわかりやすいです。

Answer 1

※見損じ失礼しました。

エラー通りの内容です。
すでにA1に入力された値のフィールドがあるので変更できません。
ピボットテーブルのデータ取得時にA1の値と同じ項目名がすでにあるのではないでしょうか。

変数には対応しています。

Comments

[temji]

ご回答ありがとうございます。
集計はワークシート名でありフィールド名ではありません。
分かりにくくて申し訳ございません。
現在のフィールド名はxxxで変更したいフィールド名はA1のセルに入力されています。（例：yyy）

[temji]

ありがとうございます。
何度か試してみたところ、初めに設定した値を手動で変更→元に戻す、という処理をやろうとしていたためすでにあるフィールド名ということでエラーが出ていたみたいです。
全く新しい値で試してみたところすんなりいけました。