referring by index to adjacent cells

[Guest]

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!

 

[Frank Kabel]

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

 

[Greg Wilson]

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

 

[Nigel]

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