Selecting a range of cells

  • Thread starter Thread starter Kevin
  • Start date Start date
K

Kevin

I have recorded a macro to select a range of cells, merge
them, and wrap the text. The problem I have is the macro
returns to the row on which the macro was recorded. How do
I have the macro select say columns B through F relative
to the row I am on, then perform the rest of the macro.

Thanks in advance!

Kevin
 
Range("B42:J42").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With

I understand everything except how to select a range of
columns relative to the row the cursor is on.

Kevin
 
Kevin,

Dim myRow As Long
myRow = ActiveCell.Row
Range(Range("B" & myRow), Range("F" & myRow)).Select

HTH,
Bernie
 
Bernie,

Works great!

Thanks!

Kevin
-----Original Message-----
Kevin,

Dim myRow As Long
myRow = ActiveCell.Row
Range(Range("B" & myRow), Range("F" & myRow)).Select

HTH,
Bernie





.
Click to expand...
 
No selection required.

with range(cells(activecell.row,"b"),cells(activecell.row,"f"))
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
end with
 
Back
Top