TRIM Macro

[Danny]

Can somebody help me write a macro to TRIM extra spaces? I
tried the example in the built excel help (see below) but
it won't work. I need the macro if I hightlight a range or
highlight the entire worksheet.

Dim MyString, TrimString

".

TrimString = RTrim(MyString) ' TrimString = " <-Trim-

".

TrimString = LTrim(RTrim(MyString)) ' TrimString = "<-
Trim->".
' Using the Trim function alone achieves the same result.
TrimString = Trim(MyString) ' TrimString = "<-Trim->".

Thanks in advance.

 

[J.E. McGimpsey]

Take a look at David McRitchie's TrimAll macro:

http://www.mvps.org/dmcritchie/excel/join.htm#trimall

 

[Danny]

Thanks for the tip. Exactly what I needed.

-----Original Message-----
Take a look at David McRitchie's TrimAll macro:

http://www.mvps.org/dmcritchie/excel/join.htm#trimall


.