title: Remove leading zeros from column (non function)
body: <p>This is posted by Dammer15 and this is what I'm looking for. However I need it to loop through the entire column. I would ask there directly but I can not comment yet.</p>
  
  <pre><code>Dim My_Number As String
  Dim i As Integer
  My_Number = Range("AJ")
  For i = 1 To Len(My_Number) - 1
  If InStr(1, My_Number, "0") = 1 Then
      My_Number = Right(My_Number, Len(My_Number) - 1)
   Else
      Range("AJ") = My_Number
      Exit For
   End If
  Next
  </code></pre>