LTRIM Problem

[Guest]

I am trying to trim the leading spaces from all text in Column U.
I have have the following code but when I run it nothing happens (the
leading spaces are still there). I've tried both LTRIM and TRIM but neither
seems to work.
What am I missing?

Dim Rng as Range
Sheets("Raw Projections").Select
For Each Rng In ActiveSheet.Range("U6:U500")
Rng.Value = LTrim(Rng.Value)
Next Rng

Matt

 

[David McRitchie]

Hi Matt,
Try including this before the loop

Selection.Replace What:=Chr(160), Replacement:=Chr(32), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

For more information see:
http://www.mvps.org/dmcritchie/excel/join.htm#trimall

Char(160) is the HTML   (non-breaking space)

But if you look at the macro TRIMALL macro you will see some additional
code which will make the macro run faster.

 

[Chip Pearson]

Your code works fine for me.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com

 

[Guest]

Thanks guys I modified to code to the following and it worked great.

Sheets("Raw Projections").Range("U6:U500").Select
Selection.Replace What:=Chr(160), Replacement:=Chr(32), LookAt:=xlPart, _
SearchOrder:=xlByColumns, MatchCase:=False
For Each Rng In ActiveSheet.Range("U6:U500")
Rng.Value = LTrim(Rng.Value)
Next Rng