With Activecell

.Value = Replace(.Value, Chr(10),",")
End With

--
__________________________________
HTH

Bob

"Sue Compelling" wrote in message
...
Hi

I have an address cell which has data with multiple lines - eg:

School of Science
Medical University

and I want to do a Find all: carriage returns and replace with a comma -
though I don't know the code to use for the carriage returns ...

Help

TIA

--
Sue Compelling