Coding For Borders on Ranges

[robcarr]

Dear All,

IS there easier coding to add a bold border around a range and then make each box line in the range be highlighted with a thin line. every time i record the procedure I get loads and loads of coding, is there a way to speed this up or make the coding less as, I am trying to speed up the macros. I have used the displayalerts and calculations commands to speed up coding, but I thought I could speed up the borders as this seems to take some time. Here is an example of the coding I get, I need to get the same affect as the coding, but in half the time if possible.

Range("B2:L25&quot.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1&quot.Select
End Sub

 

[bryanbayfield]

Range("B2:L25").Borders.LineStyle = xlContinuous

 

[shauntwo]

I'm trying to get the hang of coding, but I think adding this second line to Bryan's code should do the outside border the way you like:

Range("B2:L25&quot.BorderAround , xlMedium

 

[bryanbayfield]

Almost Shaun.

I'd forgotten about the thick border. Thgat means two lines of code:

Range("B2:L25").Borders.LineStyle = xlContinuous
Range("B2:L25").BorderAround Weight:=xlMedium

 

[bryanbayfield]

Almost Shaun.

I'd forgotten about the thick border. That means two lines of code:

Range("B2:L25").Borders.LineStyle = xlContinuous
Range("B2:L25").BorderAround Weight:=xlMedium