Hi,
I need to repeatedly select a cell by its index (e.g. Cells(r,1) with a loop
over r), and merge it with the cell to the right. Could you please tell me
how it can be done? (Can I select the cell, and then expand Selection to the
right?)
Thank you very much!

Hi
one way:
cells(r,1).resize(1,2).select

--
Regards
Frank Kabel
Frankfurt, Germany


Demyan wrote:
Hi,
I need to repeatedly select a cell by its index (e.g. Cells(r,1) with
a loop over r), and merge it with the cell to the right. Could you
please tell me how it can be done? (Can I select the cell, and then
expand Selection to the right?)
Thank you very much!

I assumed you meant to iterate through a range of cells
using a loop and to merge each of these cells with the
cell on the right. There is seldom a need to select cells.

Sub MergeCells()
Dim r As Integer
For r = 5 To 10
Cells(r, 1).Resize(1, 2).MergeCells = True
Next r
End Sub

Regards,
Greg


-----Original Message-----
Hi,
I need to repeatedly select a cell by its index (e.g.
Cells(r,1) with a loop
over r), and merge it with the cell to the right. Could
you please tell me
how it can be done? (Can I select the cell, and then
expand Selection to the
right?)
Thank you very much!
.

Use the Range selection and cells to select the anchor and the range extent.
So......

Range(Cells(r, c1), Cells(r, c2)).Select

where c1 = first column and c2 increments to extend range to the right.

Cheers
Nigel

"Demyan" wrote in message
...
Hi,
I need to repeatedly select a cell by its index (e.g. Cells(r,1) with a
loop
over r), and merge it with the cell to the right. Could you please tell me
how it can be done? (Can I select the cell, and then expand Selection to
the
right?)
Thank you very much!