Macro Pivot Table PivotFields(-1)

[JamesS]

Hi,

I'm trying to move the values tab in the pivot table builder in to the row labels area but when i play the macro it bugs out - I think this may be the issue

PivotFields(-1)

I am having a similar issue with trying to add a percentage field as well which again I think is the same issue. I have included the extended code below.

Any help would be greatly appreciated as this is driving me mad!

Sub percentages()
'
' percentages Macro
'

'
    Range("H:H").Select
    ExecuteExcel4Macro "(""PivotTable3"",1,""Field1"",""=warranty/items"",TRUE)"
    ActiveSheet.PivotTables("PivotTable3").PivotFields("warranty%").Orientation = _
        xlDataField
    Columns("I:I").Select
    Selection.Style = "Percent"
    Range("J13").Select
End Sub






Sub movevalues()
'
' movevalues Macro
'

'
    Range("B3").Select
    With ActiveSheet.PivotTables("PivotTable3").PivotFields(-1)
        .Orientation = xlRowField
        .Position = 2
    End With
End Sub

 

[JamesS]

Any ideas? I've searched high and low for the solution but nothing so far