Select a range plus 1 cell.

[gmittar]

Hi All,

Hopefully a very simple question. I have a part of a larger macro that selects a range and then draws a box around it. I would like to extend the range that the box is drawn around by one cell at the bottom. I've fiddled with it unsuccessfully. Code below.

Thanks for your help!

 Range("g67:h67").Select
    Range(Selection, Selection.End(xlDown)).Select
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With
        
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
        End With

 

[Joe4]

Try changing this line:

Range(Selection, Selection.End(xlDown)).Select

to this:

Range(Selection, Selection.End(xlDown).[COLOR=#ff0000]Offset(1,0)[/COLOR]).Select

 

[gmittar]

Thanks Joe, that worked. I hoped it would be that easy.

Appreciate the help!

 

[Joe4]

You are welcome.

 

[DanteAmor]

How about

    With Range("G67:H" & Range("G67").End(xlDown).Offset(1, 0).Row)
        .Borders(xlEdgeLeft).LineStyle = xlContinuous
        .Borders(xlEdgeLeft).Weight = xlThin
        .Borders(xlEdgeRight).LineStyle = xlContinuous
        .Borders(xlEdgeRight).Weight = xlThin
        .Borders(xlEdgeBottom).LineStyle = xlContinuous
        .Borders(xlEdgeBottom).Weight = xlThin
    End With