Inserting spaces left of text in multiple cells in Excel or change default indention

I have twenty pages of reports where the Account Names are all Caps and Indented.  I know how to change the case and how to remove the indention, but due to  size limitations I need to either:

1. Change the default indention amount to 3 spaces, or
2. Mass remove the indention (which I know how to do) and mass insert 3 spaces left of the text (which I do not know how to do).
Bill GoldenExecutive Managing MemberAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Saqib Husain, SyedEngineerCommented:
I assume you are looking for VBA code. If yes then please post a sample to work on.
Bill GoldenExecutive Managing MemberAuthor Commented:
No, I do not do VBA.  Sorry, it is beyond my expertise.
Martin LissOlder than dirtCommented:
You can do either

Range("A1").InsertIndent 1


Selection.InsertIndent 1
Become a CompTIA Certified Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

Martin LissOlder than dirtCommented:
Do you want to do a column or a row or a whole sheet?
Bill GoldenExecutive Managing MemberAuthor Commented:
Column, but I want to insert 3 spaces or change the default value of indent since it is about 4.5 spaces.
Martin LissOlder than dirtCommented:
Indent looks like 3 spaces to me. I manually added three spaces in A1, used Indent 1 in A2, and did nothing in A3.
3 spaces
Bill GoldenExecutive Managing MemberAuthor Commented:
I am using Excel 2003.  The indent is exactly 4 spaces.  Regardless, in some areas I will need to indent, but only 2 spaces.  I am posting a second question with a possible avenue for a workaround.
Martin LissOlder than dirtCommented:
I don't believe there's any way to change the default indent, but using VBA you could do this (which I can help you implement) which will add three spaces.

Dim c As Range

For Each c In Range("A1:A" & UsedRange.Rows.Count)
    c.Value = "   " & c.Value

Open in new window

Martin LissOlder than dirtCommented:
1.    In Excel type Alt+F11From the menu choose Insert->Module
2.    Copy and paste the macro below into the module
3.    Change the 2 A's to the column you want to adjust
4.    Then back in Excel go to Developer->Macros and select the 'Adjust' macro
5.    Select 'Options', hold down the Shift key and type "A" (or any other letter) without the quotes.

Then anytime you want to run the macro type Ctrrl+Shift+A

Sub Adjust()

Dim c As Range

For Each c In Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
    c.Value = "  " & c.Value
End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Bill GoldenExecutive Managing MemberAuthor Commented:
Both helped me get there.
Martin LissOlder than dirtCommented:
Bill, please see this EE article on grading answers, particularly the part that says

"A should be the default grade awarded unless the answer is deficient. An A grade means the solution provided is thorough and informative or is a link to information that answered the question."

If after reading it you want to change my answer to an A then Request Attention to the thread and a moderator will reopen it for you. If not then no hard feelings.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.