replace works on a range, why do selection.count -1 useless loops.

Sub Macro1()
Cells.Replace What:=Chr(10), Replacement:=" ", _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False
End Sub

--
Regards,
Tom Ogilvy


"Peter atherton" wrote in message
...

-----Original Message-----
How can I find a line-feed (alt + Enter) in a text cell
in Excel and replace it with a space. When we save our
Excel data to .csv and upload, our application bombs with
this special character.
.

Chris

Something like this

Sub Macro1()
Dim x
Dim c As Variant
x = Chr(10)
For Each c In Selection
c.Replace What:=x, Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Next c
End Sub

Regards
Peter