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

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

On Tue, 24 Apr 2012 10:46:10 -0700 (PDT), Demetria Jones
wrote:

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.