Current Special! Complete Excel
for Excel 97 - Excel 2003, only
30 Day Money Back Guarantee & Free
Excel Help for LIFE!
Got any Excel Questions? Free Excel Help
Inserting spaces in a text string
I have a Sentence Like this
Give A Dog Big Bone.
By accident I have removed the Spaces between the words using find and replace and now the Sentence looks like this
I want to Insert space Before Each Letter With upper Case.
A solution in the form of a user defined function was provided by Russell Hauf.
Public Function MakeSentence(rng As Range)
Dim lngI As Long
MakeSentence = Left(rng.Text, 1)
For lngI = 2 To Len(rng.Text)
If Mid(rng.Text, lngI, 1) >= "A" And _
Mid(rng.Text, lngI, 1) <= "Z" Then
MakeSentence = MakeSentence & " " & _
Mid(rng.Text, lngI, 1)
MakeSentence = MakeSentence & Mid(rng.Text, lngI, 1)
Excel Dashboard Reports & Excel Dashboard Charts 50% Off Become an ExcelUser Affiliate & Earn Money
Special! Free Choice of Complete Excel Training Course OR Excel Add-ins Collection on all purchases totaling over $64.00. ALL purchases totaling over $150.00 gets you BOTH! Purchases MUST be made via this site. Send payment proof to [email protected] 31 days after purchase date.
Instant Download and Money Back Guarantee on Most Software
Excel Trader Package Technical Analysis in Excel With $139.00 of FREE software!
Microsoft ® and Microsoft Excel ® are registered trademarks of Microsoft Corporation. OzGrid is in no way associated with Microsoft
Some of our more popular products are below...
Convert Excel Spreadsheets To Webpages | Trading In Excel | Construction Estimators | Finance Templates & Add-ins Bundle | Code-VBA | Smart-VBA | Print-VBA | Excel Data Manipulation & Analysis | Convert MS Office Applications To...... | Analyzer Excel | Downloader Excel | MSSQL Migration Toolkit | Monte Carlo Add-in | Excel Costing Templates