title: vba xlrunningtotal not working
body: <p>I am trying to add a filed as running total, when its added as just xlsum it works but not when I try to make it xl running total. </p>
  
  <pre><code>    .AddDataField ActiveSheet.PivotTables( _
          sShtname).PivotFields("my_fav_100"), "my_fav_100_2", xlSum
      .PivotFields("my_fav_100_2").Calculation = xlRunningTotal
      With pt.PivotFields("my_fav_100_2")
         .Style = "Comma"
         .NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""0""??_);_(@_)"
  </code></pre>
  
  <p>No compilation error, but gets <code>N/A</code> in the field, if I comment out the <code>".PivotFields("my_fav_100_2").Calculation = xlRunningTotal"</code> field gets populated but simply a sum not running total sum, also tried  .<code>Calculation = xlRunningTotal</code> and does not seem to work </p>