title: Shortening numbers in VBA
body: <p>I have a document that has numbers such as </p>
  
  <pre><code>4100.0
  4201.0
  4300.1
  </code></pre>
  
  <p>but I need them in the format of</p>
  
  <pre><code>410
  420
  430
  </code></pre>
  
  <p>I'm trying to write a global excel macro in VBA (first time using VBA) to do this but seem to have hit a road block. This is what I have so far:</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  
  Dim ItemNum As Range
  
  For Each num In ItemNum
  
  
  End Sub
  </code></pre>
  
  <p>ItemNum.NumberFormat ("000")</p>
  
  <p>I have figured out how to walk through a defined range and I found range.numberformat but that only gets rid of the decimals, not the final 0 / 1. I also can't figure out how to make it accessible to all of my spreadsheets.</p>
  
  <p>Any other suggestions?</p>