Adding Two Text Cells

Hi,

Is there an easy way to concatenate two cells??

Suppose the worksheet has six cells like this:

Row 1: John Smith
Row 2: **** Jones
Row 3: Property Acme

Rows one and two are the way they should be, but row three should read `Acme
Property' in the right hand cell, while the left hand cell should be empty.

Is there a way to automate this process on a large worksheet without
retyping all the data??

Thanks,

Sam

If automating the process how to tell which rows should be adjusted and
which left alone?

If you can select all of the problem rows together then

'***********************************
dim rw, r
for each rw in selection.rows
r=rw.row
with activesheet
.cells(r,2).value=.cells(r,2).value & " " & _
.cells(r,1).value
.cells(r,1).clearcontents
end with
next rw
'************************************


Tim

"Sam" <samuelc@teleport.com> wrote in message
news:e9RJf.1770$VI6.746@newsread1.news.pas.earthlink.net...
> Hi,
>
> Is there an easy way to concatenate two cells??
>
> Suppose the worksheet has six cells like this:
>
> Row 1: John Smith
> Row 2: **** Jones
> Row 3: Property Acme
>
> Rows one and two are the way they should be, but row three should read
> `Acme Property' in the right hand cell, while the left hand cell should be
> empty.
>
> Is there a way to automate this process on a large worksheet without
> retyping all the data??
>
> Thanks,
>
> Sam
>

"Sam" wrote:

> Hi,
>
> Is there an easy way to concatenate two cells??
>
> Suppose the worksheet has six cells like this:
>
> Row 1: John Smith
> Row 2: **** Jones
> Row 3: Property Acme
>
> Rows one and two are the way they should be, but row three should read `Acme
> Property' in the right hand cell, while the left hand cell should be empty.
>
> Is there a way to automate this process on a large worksheet without
> retyping all the data??
>
> Thanks,
>
> Sam
>
> or if you do not want to use a macro the & symbol will join 2 or more cells


> Row 1: John Smith
> Row 2: **** Jones
> Row 3: Property Acme
row 4 :=b3 & " " & a3