LTRIM Problem
 

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

LTRIM Problem
 

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.
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page: http://www.mvps.org/dmcritchie/excel/search.htm

"mtsark" wrote in message ...
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

LTRIM Problem
 

Your code works fine for me.


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


"mtsark" wrote in message
...
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

LTRIM Problem
 

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