I need to add spaces to the beginning of my texts which are numbers

  • Thread starter Thread starter Demetria Jones
  • Start date Start date
D

Demetria Jones

example I have various account numbers as texts from 4 to 7 digits. I
need to make all account numbers 10 digits long with spaces at the
beginning. Another example....
_ _ _ 1234567.
 
Sub fill_spaces_left()
Dim s As String
Dim cell As Range
For Each cell In Selection
With cell
.NumberFormat = "@"
.HorizontalAlignment = xlRight
s = .Value
If Len(s) < 10 Then
.Value = Space$(10 - Len(s)) & s
End If
End With
Next
End Sub


Gord
 
Back
Top