lee type your question the body of the text please.

sub removecarret()
dim cel as range
for each cel in activesheet.usedrange
cel = replace(cel,chr(13),"")
next
end sub
UNTESTED but it should work

--
When you lose your mind, you free your life.


"Lee" wrote:

I need to do more than one cell at a time.