Pivot Field List Macro

[waytooraider]

Sub Macro1()
'
' Macro1 Macro
'

'
With ActiveSheet.PivotTables("PivotTable1").PivotFields("MALZEME")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable1").PivotFields("CAP")
.Orientation = xlRowField
.Position = 2
End With
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
"PivotTable1").PivotFields("BOY"), "Sum of BOY", xlSum
With ActiveSheet.PivotTables("PivotTable1").PivotFields("MAHAL")
.Orientation = xlRowField
.Position = 1
End With
End Sub

Yukardaki macroyu kaydederek yaptım ve Sadece Pivottable1 için geçerli.Sürekli ;sırasıyla MAHAL MALZEME POZ CAP BOY başlıklı tablolara pivot table uyguluyorum.Yukardaki düzenlemeyi çalıştırdığımda sadece pivottable1 için geçerli oluyor.Acaba o anki pivot table için mesela pivottable4 için bu makroyu nasıl genel hale getirebilirim.