merging ranges
 

I have two ranges. One with last names and one with first names. I want to
take those two ranges and make them one new range. i want that new range to
look like lastname, firstname. I would think this is very simple to do. I
have been trying but i can't get it to work.

merging ranges
 

Lastnames in column A
Firstnames in column B
Put the joined names in Column C

Dim rng as Range, cell as Range
set rng = Range(Cells(1,1),Cells(1,1).End(xldown)
for each cell in rng
cell.offset(0,2).Value = cell.value & ", " & cell.offset(0,1).Value
Next

a formula: in C1

=trim(A1) & ", " & trim(B1)

then drag fill down the column

Same approach in code:
Dim rng as Range, cell as Range
set rng = Range(Cells(1,1),Cells(1,1).End(xldown)
rng.offset(0,2).Formula = "=trim(A1) & "", "" & trim(B1)"
'replace the formula with its results.
rng.offset(0,2).Formula = rng.Offset(0,2).Value


--
Regards,
Tom Ogilvy

"Rich Cooper" wrote in message
...
I have two ranges. One with last names and one with first names. I want
to
take those two ranges and make them one new range. i want that new range
to
look like lastname, firstname. I would think this is very simple to do.
I
have been trying but i can't get it to work.