Remerge = just merge the cells again (after selecting the extra cells)

"Jim Rech" wrote:

'*********here's where I get lost************

Me too. You want to select 10 cells down a column starting with the active
cell?

ActiveCell.Resize(10).Select

Remerge the cells

What does "remerge" mean?

--
Jim
"ReportSmith" wrote in message
...
I currently have a block of cells that I've merged to create a big
"Comments"
section on a worksheet. I now need to expand that block (by, let's say 10
rows) and then reestablish the print area (of the entire worksheet) to fit
on
1 page. I'll get to the printing part later but currently, I need a tip
on
how to select multiple cells (like the click-and-drag mouse method)
programmatically.

I have the following code/pseudo-code:

'Find the Comments section
Cells.Find(What:="Comments").Select 'find the header
ActiveCell.Offset(1, 0).Select 'go down to the
next
row/cell
Selection.Clear 'unmerge
cells
'*********here's where I get lost************
ActiveCell.Offset(10, 0).Select 'select next 10
rows/cells
Remerge the cells (hopefully the # of columns remains the same)

So, I need to keep selecting cells (in a loop?) and then merge them.

Any pointers are greatly appreciated.