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

[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.

 

[Gord Dibben]

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