adding space to a string after 10 characters

Hi there,

I tried the code but it's not working, I add the code to module1 and create abutton on sheet1 to start testing macro. The data is in range A1. When I call testing macro nothing is happening but if I add =InsertSpaceEveryN(Range("A1").Value, 10) to certain range the code work nicely. What can be the problem?

Please Login or Register  to view this content.

thanks,

I just ran your test and it seems to work fine.

Dom

Thanks Domski and Bob Phillips (for the code),

It works like a charm!!!