Provide Borders to the Range
Sub Format_With_Borders()
With Range("B5:D10").Borders
'==========LineStyle=========
.LineStyle = xlContinuous
.LineStyle = xlDot
.LineStyle = xlDash
.LineStyle = xlDouble
'=========Weight ===========
.Weight = xlThin
.Weight = xlMedium
.Weight = xlThick
'========ColorIndex===========
.ColorIndex = 9
End With
End Sub