title: Excel VBA adding Values field in Pivot Table not working
body: <p>Hi I am trying to add a Values field in my Pivot table. Here is the code I have for now :</p>
  
  <pre><code> 'Insert Row Fields
     With ActiveSheet.PivotTables("PivotTable").PivotFields("Account Lvl1 Desc")
     .Orientation = xlRowField
     .Position = 1
     End With
     With ActiveSheet.PivotTables("PivotTable").PivotFields("Account Description")
     .Orientation = xlRowField
     .Position = 2
     End With
     With ActiveSheet.PivotTables("PivotTable").PivotFields("Supplier")
     .Orientation = xlRowField
     .Position = 3
     End With
  
   'Insert Data Field
     With ActiveSheet.PivotTables("PivotTable")
  
     .PivotFields ("Distrib Amt CAD")
     .Orientation = xlDataField
     .Function = xlSum
     '.NumberFormat = "#,##0"
     .Name = "Sum of OH in CAD "
     End With
  </code></pre>
  
  <p>Everything else is working but the Values</p>