here's another way

Sub RemoveSpaces()

Worksheets("Sheet3").Range("c11:c500").Replace _
What:=" ", Replacement:="", _
SearchOrder:=xlByColumns, MatchCase:=True

End Sub

--


Gary


"herve" wrote in
message ...

Hi all,
I have text in cell C11 to C5000.
Do anyone know a macro that will remove the blank in the text?
Ta


--
herve
------------------------------------------------------------------------
herve's Profile:
http://www.excelforum.com/member.php...o&userid=27314
View this thread: http://www.excelforum.com/showthread...hreadid=473029