VBA Code to add a leading space

[Richard2542]

I have a list of text entries in various columns - I need to randomly select cells that contain text and add a "leading space" to the name. Looking for a simple VBA solution that would change the selected cells.

Example: Richard Result: "add 1 space"(followed by) Richard

 

[Joe4]

Try this:

Sub AddSpace()

    Dim cell As Range
    
    Application.ScreenUpdating = False
    
    For Each cell In Selection
        cell = " " & cell
    Next cell
    
    Application.ScreenUpdating = True
    
End Sub

 

[Richard2542]

Joe...Absolutely perfect - thanks so much or your help.

Richard

 

[Joe4]

You are welcome.