Henry wrote

Range("A" & i).Value = c & "LASTNAME" & ", " & "FIRSTNAME"
If C<10 then Range("A" & i). Value = "0" & Range("A" & i). Value

will give you 01xxx, 02xxx, etc. which will sort properly.

Thanks. I adapted that concept to append to end of "LASTNAME" rather than
the beginning and now I'm happy. I was just about to initialize C to 99 and
live with that when I saw your post.

--
David