title: Vba Number Format for only Totals Calculation for ListObject
body: <p>I want to create a custom currency number format only in the total row table if there is a solution and which I mark the yellow color in the screenshot.</p>
  <p>Thanks
  jack</p>
  <pre><code>Sub test2()
  Dim objListObj As ListObject
  Set objListObj = Sheets(&quot;test&quot;).ListObjects(1)
  objListObj.ShowTotals = True
  With Sheets(&quot;test&quot;).ListObjects(&quot;Table1&quot;)
  .ListColumns(&quot;Total&quot;).TotalsCalculation = xlTotalsCalculationSum
  .ListColumns(&quot;Pot. :&quot;).TotalsCalculation = xlTotalsCalculationSum
  .ListColumns(&quot;Total End :&quot;).TotalsCalculation = xlTotalsCalculationSum
  .ListColumns(&quot;PRICE2&quot;).TotalsCalculation = xlTotalsCalculationSum
  End With
  End Sub
  </code></pre>
  <p><a href="https://i.stack.imgur.com/DVSr1.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/DVSr1.jpg" alt="SHEET TEST 25022022" /></a></p>