Hello

try dim the string

Ex:
dim str as String * 78
str= cells(rng).value

if str=12 you get str with 12 and 76 spaces

"A.New" wrote in message
...
i need length of data input into cells to be a mulitple of 78. i have
worked
that out except when the input is a number only.
if you input 12
i want to add 76 spaces after the "12". My code recognizes that its length
is 2 and that it needs to add 76 spaces but it doesn't
{code}
Dim blank As Variant
Dim length As Integer
Dim f_fix2 As String

For Each text_cell In text
blank = CStr(text_cell.Value)
length = Len(text_cell)
Dim f_fix2 As String
remnder = length Mod 78

... check for lenth=0 or mulitple of 78
if not
f_fix2 = Space(78 - remnder)
text_cell.Value = blank + f_fix2
Thank you for taking a look
Alfred