Looping through columns(a:k), with rows(5-7) only

[Gwen]

Please assist.
I am trying to find an efficient way to accomplish the following:
for columns (a:k) rows(5:7)

With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With

Thank you

 

[Bob Bridges]

I don't understand the question yet. Are you saying you don't know how to
make the selection before executing that With group? Or is the With group
not working, and you want to know why? If the latter, you have to tell us
what error message you're getting.

 

[JLGWhiz]

See if this is what you want:

Sub bordlin()
With Range("A5:K7").Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub

 

[Gwen]

Thats it!
Thank you

See if this is what you want:

Sub bordlin()
With Range("A5:K7").Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub