Loop Through Column and Delete Space

[EnigmaMatter]

Hello,

I have a number of Cells in a Column that contain a space before the text contents (that shouldn't have a space before the text contents). For example " Fake Customer Name".

How do I loop through the Column to delete the SPACE, but if there is no space before the text, don't delete anything.

Thank You in Advance; I always appreciate your help.

[stnkynts]

Sub Remove_Space()
Dim rCell As Range

For Each rCell In Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
    If Len(rCell) <> 0 Then
        rCell.Value = Trim(rCell.Value)
    End If
Next rCell

End Sub

Do you need this post and the other combined into 1 macro?

[Vikas_Gautam]

Use Trim Function..
or try this code..

Sub TrimCell()
set x= application.inputbox("set your Target Range", Type:=8)
For each cell in x
cell=Trim(cell)
next
End Sub

will do the job...

[EnigmaMatter]

stnkynts,

1.) Excellent Solution.
2.) Took me way too long to figure out your user name.

[JOHN H. DAVIS]

Maybe:

Sub EnigmaMatteryy()
Dim i As Long
For i = Range("A" & Rows.count).End(3).Row To 2 Step -1
    If Left(Range("A" & i), 1) = " " Then
        Range("A" & i).Value = Right(Range("A" & i), Len(Range("A" & i)) - 1)
    End If
Next i
End Sub