How do I select a range to merge cells?

S

SteveM

I want to take a group of cells and merge them. I know they will always be
columns B through F, but the row number will vary. I saved the row number
in a variable (rownum), but can't figure out how to then select those cells
to merge. I have this, but it doesn't work. I would appreciate any help you
can give me. Thanks in advance,


Dim SelRange As Range
Set SelRange = ActiveSheet.ActiveCell.Range(Cells(rownum, 2),
Cells(rownnum, 6))

Range(SelRange).Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
 
G

Gary Keramidas

don't have to select them

range("A1:c1").MergeCells = true

Range(SelRange).MergeCells = true
 
G

Gary''s Student

Say row1 is the first row and row2 is the last row:

Sub splice_um()
Dim r As Range
row1 = 3
row2 = 7
Set r = Range("B" & row1 & ":F" & row2)
r.MergeCells = True
End Sub
 
S

SteveM

Thanks. I tried this but got an error for this line:
Set SelRange = ActiveSheet.ActiveCell.Range(Cells(rownum, 2), Cells(rownnum,
6))

But it's closer than I was. Thanks.
 
S

SteveM

Thanks. I had tried concatenating the row number with the B and F, but I
guess I didn't do it correctly. I took your method and did this:
Set SelRange = Range("B" & rownum & ":F" & rownum)
SelRange.MergeCells = True
and it worked like a charm. Thank you very much!
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top