Why don't you align right?
This should do what you want
Sub addspaces()
For Each c In Selection
c.Value = Space(12 - Len(c)) & c
Next c
End Sub
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Gary" <(E-Mail Removed)> wrote in message
news:203a001c45899$46a75af0$(E-Mail Removed)...
> I need to add leading spaces to a text field. The field
> needs to be 12 "characters" long with any "spaces" leading
> the text. for example instead of "apple" I want to
> format to " apple" and "orange" to " orange"
>
>