How do I apply LTRIM to entire Sheet?
 

Hey guys-
I have an entire sheet filled with data. Many columns/rows have spaces at
the beginning of the cell. Many cells have multiple words in them, so a
simple Find/Replace wont work. I need to use LTRIM across the entire
worksheet so it deletes out all the leading spaces. How can this be done
easily???
Thanks
D

How do I apply LTRIM to entire Sheet?
 

Hi "D",
You would need a macro. Posting to anyone of these
groups gets read by the same people. But at least
we know you know about macros (programming).

There is an LTRIM in VBA so you can use the VBA
function. For rest of macro see
http://www.mvps.org/dmcritchie/excel/join.htm#trimall
you would want to give it a different name like LtrimAll
---
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

"D" wrote in message news:3NfSc.26637$Oi.2989@fed1read04...
Hey guys-
I have an entire sheet filled with data. Many columns/rows have spaces at
the beginning of the cell. Many cells have multiple words in them, so a
simple Find/Replace wont work. I need to use LTRIM across the entire
worksheet so it deletes out all the leading spaces. How can this be done
easily???
Thanks
D

How do I apply LTRIM to entire Sheet?
 

Hi,

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Sub TEST()

Dim CL As Range
Dim RNG As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

On Error Resume Next
Set RNG = Cells.SpecialCells(xlConstants, xlTextValues)
For Each CL In Intersect(Selection, RNG)
CL.Value = LTrim(CL.Value)
Next
On Error GoTo 0

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -


--
Regards,
Soo Cheon Jheong
_ _
^¢¯^
--